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NOTICE 


This manual details the external operations of the various subroutines that 
compose the GPR 340 system software written in FORTRAN language. 


As a prerequisite to understanding this manual, the reader is assumed to be 
familiar with the FORTRAN language, the basic principles of BENSON plotting 
devices and definitions and rules related to the BENSON series X3, X5 Graphics 
Intelligence , as collected in Reference Manual, Publication number 457200126 A 


and 457200209 A. 
Due to sustained effort in Research and Development, BENSON reserves the right 


to change any technical specification without notice. Please address any 
suggestions and comments to your local BENSON SA representative. 
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1. INTRODUCTION 


1.1. PRELIMINARIES 


The GPR 340 system software is a set of FORTRAN IV subroutines that manages the 
COM 340. 


This software package has been designed with the following objectives and 
constraints : 


- complete compatibility with the current ISDP (Industry Standard 
Drafting Package). 


~ potential compatibility with all BENSON devices (electro- 
mechanical plotters, electrostatic printer plotters, COM). 


~- enhanced portability and efficiency through a new architecture 
derived from concepts and recommendations of the CORE System (*). 


The current version of GPR 340 supports only COM 340. 


The present book is issued from publication 451200135 (GPR100 USER'S MANUAL) 
modified in order to : 


- Deal with GPR340 specific functions 
~ Signal GPR100 non supported functions (thanks to page footnote) 
- Summarize GPR340 differences with GPR100 in 3.6 section 


(*) The CORE SYSTEM is a set of recommendations set forth by a body with an 
international scope, the SIGGRAPH. These recommendations tend to standardize the 
formulation and solution of graphics problems. 
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ed 


Five 


This 


NEW CONCEPTS 


new concepts have been introduced :; 


- the Graphics Attributes (denoted G.A.) 
- the Reference Point (denoted R.P.) 
~ the Text Vector 

- the Escape Sequence 

~ the Principal and Alternate Fonts *** 


paragraph offers a short reminder of the definitions and rules related to 


these concepts. 


Further explanations are to be found in publication : 


"Series X3 Graphics Intelligence - Reference Manual" - n° 457200126 B. 
"Series 9XXX Graphics Intelligence - Reference Manual" - n° 457200209 A. 


1.2.1. The Graphics Attributes 


Functionally, the Graphic Attributes fall into 4 classes : 


As viewed by the programmer, the Graphics Attributes are parameters that 
implicitly affect the execution of certain of the plotting subroutines. 


For example : as soon as the thick line G.A.'s are set, all plotting is 
automatically carried out in thickened lines. 


As each plot is initiated, each Graphics Attribute is set to an initial 


default value. 


These value will only be changed through a programmer action. The 
G.A.'s are considered as permanent. 


However, if the execution of a function conflicts with one of the current 
G.A.'s the latter is automatically suspended to give way to a temporary 
G.A. that will be in effect all the time the execution of the function is 
in progress. 


ex : in the AXIS subroutine which plots a graduated axis with 
title, title characters height is fixed to 3.5 mm. The corres- 
ponding G.A. is set temporarily to 3.5. 


- the G.A.'s that affect the plotting of lines 

- the G.A.'s that affect the plotting of text 

- the G.A.'s that affect the plotting of characters and symbols. 

- the G.A.'s that describe the environment in which a plot is to be 
included. 


*xkk NOT AVAILABLE IN GPR 340 
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Logically, three types of Graphics Attributes are to be distinguished : 


- The Enabling Graphics Attributes (E.G.A.) that control the presence of a 
graphic effect. E.G.A.'s may be enabled or disabled; 


Example : enabling the 'THIK' E.G.A. causes line thickening to occur. 


- The Selection Graphics Attributes (S.G.A.) that are used to select one 
out of n possible special forms of a graphic effect. 


Example: the selection of one out of 16 possible dash patterns. 


- The Quantitative Graphics Attributes (Q.G.A.) that are describing values 
of a particular graphic effect. 


Example : describing the "Thickening" graphic effect involves two 
Q.G.A.'s : the thickness and the density. 


E.G.A.'s and S.G.A.'s are identified by strings of characters 

(one string = 4 alphabetic characters). The syntax of each 

string is fixed. 

Example : the thickening effect is associated with 'THIK' E.G.A. 

Every E.G.A. or S.G.A. may also be identified by his numeric equivalent 
denoted E.Q.. The E.Q. is used to choose a graphics effect by software and 
must be used with certain compilers. 


Q.G.A.'s are identified as any integer or real FORTRAN data. 


Although advised, BENSON chosen names for the Q.G.A.'s may be changed by 
the user. 


- E.G.A.'s are controlled by the ENABL, DSABL and SET subroutines (§ 
Se Sadie 2). 
- S.G.A.'s are controlled by the SELEC subroutine. 
- Q.G.A.'s are set by specific subroutines. 


A list of the G.A.'s is included in Appendix B. 
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1.2.2. The Reference Point 


The Reference Point (denoted R.P.) is the last point the coordinates of 


which are by convention identically known to both the host computer and the 
plotting device. 


For the host computer, the Reference Point concept replaces the "pen 
physical location" the maintenance of which appeared cumbersome and 
incomplete (the same computations are carried out on two different machines 
with unequal accuracies, which leads to loss of steps and calls for 


adjustment vectors). 


As the R.P. is basically a conventional point, it can be quite different 
from the pen physical location after the plotting command is executed. 
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Example : plotting two circles sequentially 


Ld 
PR> 


Second plot 1 


First plot 


PR1 = Reference Point after the first plotting 

PR2 = Reference Point after the second plotting 

PHO = Initial pen physical location 

PH1 = Pen physical location after the first plotting 
PH2 = Pen physical location after the second plotting 


The practical result is as if each plotting subroutine ends with a pen up move 
command toward the Reference Point. 


Actually, the plotter will carry out the pen up move to the Reference Point only 
if necessary to perform the next plotting command (for instance : to plot a pen 
down vector starting from the Reference Point). 


Whenever applicable, the effect on the R.P. of each of the subroutines mentioned 
in Chapter 3 will be indicated. 
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1.2.3 The Text-Vector 


The Text-Vector is the medium on which the characters composing a text are 
arranged. (maximum = 256 characters). 


It defines beforehands the position and maximum extent of a string of 
characters, regardless of the number, size and spacing of these. 


Tt is defined by its origin, length and direction. 


After the text is plotted, the Reference Point is always located at the end of 
the Text-Vector. 


EXPLICIT TEXT—-VECTOR 
PH 


IMPLICIT TEXT-VECTOR 


PH 
PR 
PH = Pen physical location after the text is plotted 
PR = Reference Point after the text is plotted. 


Figure 1.2.3. THE TEXT~VECTOR 
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1.2.4, The Escape Sequence 


An Escape Sequence is defined as: 


- an Escape Character 
- followed by a Command Character. 


The Escape Sequence is embedded by the user in the string of characters to plot 
and it modifies the appearance of all the subsequent characters, until the end 
of the current Text-Vector. 


The Escape Sequence features the following functions: 


- Implement Superscript and Subscript (§ 2.2.3.) 

~- Change Character Font in a Text string (§ 1.2.5.) *** 

~ Allow access to a sub-set of the Character Font in the case the host 
computer has a limited number of valid codes (i.e. less than 128 diffe- 
rent values). *** 


The function performed by the Escape Sequence is effective only if the 'ESCA' 
E.G.A. has been activated by the statement: 


CALL ENABL('ESCA") 


When disabled, the Escape Sequence is considered as a couple of current 
characters to plot. 


The Escape Character code can be selected by the user by the means of the 
subroutine SELEC: 


CALL SELEC('ESCP' , ICODE) 


will select the character, the code of which is ICODE, as the current Escape 
Character. 


Note : ICODE must be within the range (32 95). 
The character with the code: ICODE + 128, is also considered as an 


Escape Character. 


Section 2.2.3.3. details the different meanings of the Command Character. 


Note : Any illegal Escape Sequence (i.e. with an invalid Command Character) 
will be plotted as current characters. 


*kk NOT AVAILABLE IN GPR 340 
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1.2.5. The Principal and Alternate Fonts *** 


BENSON devices equipped with the Graphics Intelligence can operate with Fonts of 
128 characters which differ from each other mainly by the design of each 
individual character. 


Two Fonts, stored in ROM, are chosen by the user, out of the different BENSON 
Font options (refer to Appendix A). 


On the hardware point of view, an X3 pen-plotter therefore offers: 


- a Font Fl, on the physical position 1 
- a Font F2, on the physical position 2 


On the software point of view, GPR1OO uses the logical notions of Principal and 
Alternate Fonts. 


The Principal Font is the Font which has been selected by the subroutine SELEC. 


Example: CALL SELEC('FONT',2) will select the Font F2 as the Principal 
Font, and as a consequence, the Font Fl as the Alternate one. 


By default, the Principal Font is the Font Fl. 


The embedding in a character string of an Escape Sequence will allow switching 
from the Principal Font to the Alternate one, and vice versa. 


Example: (In the case character "&" is the Escape Character) 
&4 => characters following this Escape Sequence will be extracted 
from the Principal Font, 
&B => characters following this Escape Sequence will be extracted 
from the Alternate Font. 


By default, when no Escape Sequence is used, the Principal Font is operated 
(refer to § 3.3.3.). 


*** NOT AVAILABLE IN GPR 340 
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1.2.6. The Pen Assignments 


Following concepts are relevant only for X5 Series plotters. 


Pen-plotters perform drawings by moving a Drawing Tool in relation with a 
drawing mediun. 


Three concepts are attached to the Drawing Tool : 


- Identification : More commonly referred to as a "Pen Number", this 
identification is used by the application programmer as 
an argument of subroutine NEWPEN or SELECT. The name 
given to this identification number is the Logical Pen 
Identification or LPI. LPI is currently limited to 254. 


- Tool Type : A Drawing Tool can be a ball-point pen, a pressurized- 
ink pen, a pen-point pen, or even an engraving tool. A 
particular Tool Type has its own physical constraints 
regarding the maximum drawing speed, or acceleration, 
or pressure. Each Tool Type is given a number which 
will be referred to as the Tool Type Number (TIN). 


Several positions are usually available on the Drawing 
Head of BENSON Pen-Plotters. They will be referred to 
as Physical Position Numbers (PPN). Currently, the 
maximum value for PPN is 4. To a particular PPN, 
physical constraints can be attached by operator's 
procedure or by software calls : 


- Position 


- Maximum speed 
. maximum acceleration 
. maximum pressure. 


This will be referred to as the V.A.P. feature 
(Velocity - Acceleration - Pressure). 


NOTE : When a Tool is plugged in a physical position, then the most 


restrictive constraint from both limitations is retained. 
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. X5 Series allow relation - ships between those three concepts, by the means of 
Assignment procedures performed on the operator's console exclusively. 


- A Logical Pen Identification (LPI) can refer to one of the following 
concepts : 


. a Physical Position Number (PPN) 
- a Tool Type Number (TIN) 
- nothing. 


- A Tool Type Number can refer to : 


- a PPN 
- or nothing. 


Following figure shows the Relation Chart between the three Pen concepts. 


TOOL TYPE NUMBER 
T TN 


LOGICAL PEN 
IDENTIFICATION 
oe cy 


PHYSICAL POSITION NUMBER 
P PN 


Figure 1.2.6. - Pen Assignments in X5 Series 


ee a eS Sey SE SG SY ee aD Se a Oe  Ge Sy SED OS Ge) Gn a ey Se ee 
ee eee ew ee oe Oe DS OD 
—— oe 
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. LPI Assignment. 


- PPN to LPI assignment 


ee ee ee Sa a SD SD SD OT a A OSD SRY Ce Sy ey MD OD 


Tf PPN n° 2 is assigned to LPI n° 34, then when the LPI n° 34 is 
requested, the tool in position 2 will be selected. 


PPN to LPI assignment is ruled as follows : 


- If two different PPN's are assigned to the same LPI, then only the 
first assignment is valid. The second one will be ignored and no 


message is issued. 
- The same PPN can be assigned to several LPI's. 


- If a particular LPI is requested and no operator assignment has been 
performed previously, then : 


.. The X5 plotter pauses and issues a message on the operator's 
console. 


.. The operator can choose between one of the two following 
possibilities : 


. assign the desired PPN to the requested LPI and resume the 
drawing. 


resume the drawing without assigning any PPN to the 
requested LPI. In this case, all subsequent drawing with 
this LPI will be performed virtually, i.e. : no physical 
displacement is performed, but the plotter keeps track of 
the current pen position. 


. LPI's less than four are by default assigned to by the 
corresponding PPN numbers : PPN n°3 is by default assigned to 
LPI n°3. 


- TIN to LPI assignment : 


ae oe Oe me Coes ee a ee Ae SY ens SD ED SY Mn SD oD Ome DD Gr 


This assignment cannot currently be modified by the operator and 
is manufactured as follow : 
TTN n°l is assigned to LPI n°l1l 
n°2 is assigned to LPI n°12 
n°3 is assigned to LPI n°13 
n°4 is assigned to LPI n°14 
TIN to LPI assignment operates as follows : 
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- When a Tool Type Number is requested, the X5 plotter scans the 
different Tool Type Numbers which are actually plugged in the head, 
and then : 

~ if the desired TIN is found, the corresponding Physical 
Position is selected and any further drawing will be performed 
with this tool. 

~ if the desired TIN is not found, then the X5 plotter chooses 
the last TIN which is plugged on the drawing head. 


- TIN ASSIGNMENT 


- PPN to TIN assignment : 


oe a Ce ee OD GE GD GD OO ND GD GUD GS OD Ge ee ey es Co 


This is performed merely when a Drawing Tool is plugged into a 
Physical Position. 


NOTE : If PPN n°l and 2 are both assigned to TIN n°4 for example, then 
all selections of TIN n°4 will result in using PPN n°l only 
(lowest number).In this case, selection of PPN n°2 can be 
performed only by selecting LPI n°2. 
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1.2.7. Filling of areas 


Following concepts are relevant only for 9XXX serie connected on the 
controller GW1000-64. 


It is possible to fill a rectangular area with either a shade of gray or a 
special pattern. 


The following is effective only if the "FILL" E.G.A. has been actived by 
the statement : 


CALL ENABL('FILL') 


It the E.G.A. is actived, the following sequence is selected by the 
statement : 


CALL SELEC('GCOD' , ICODE) 
with ICODE Gray level code : 


QO to 15 Shades of gray 
100 to 115 Special pattern 
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1.2.8. COM 340 filters management with GPR 340 


Following concepts are relevant only for COM 340 Series. 


COM performs drawings by moving a spot in relation with a photographic 


medium. 


Two are attached to the spot : 


~ Identification : 


- Filter : 


More commonly referred to as a "Pen Number", this 
identifiaction is used by the application programmer 
as an argument of subroutine NEWPEN or SELECT. The 
name given to this identification number is the 
Logical Pen Identification or LPI. LPI is currently 
limited to 8. 


Several filters are usually available on COM 340. 
They will be referred to as Physical Position Numbers 
(PPN). Currently, the maximum value for PPN is 7. 


GPR 340 offers the possibility of making a relationship between LPI and 
NPP using PENAT subroutine. 


- LPI Assigment. 


- PPN to LPI assigment 


Example ;: 


Tf PPN n°6 is assigned to LPI n°3, then statement NEWPEN (6) will 


select filter number 3. 
By default LPI are assigned to filter of same number. 
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2 — IMPLEMENTING THE NEW CONCEPTS 


2.1. LINE G.A.'S USAGE 
The drawing of a vector may be affected by two graphic effects : 


- thickening 
- dashing 


These effects may be combined to alter the drawing of all of the vectors, 
including those generated by other graphics functions (e.g. character or symbol 
generation, circle generation, ...). 


2.1.1. Thickening 


The thickening of a vector AB, and similarly of a line composed of n 
vectors, is achieved by plotting an odd number of nominal width vectors, 
parallel to AB and equally distributed on either side of AB. 


Vector ends may be round shaped (resulting in easier linking at any angle) 
or square shaped (resulting in clear cut right angles). This graphic effect 
will be described by the WIDTH and DNSTY Q.G.A.'s defined by the 
subroutine : 


THICK (WIDTH, DNSTY) 
WIDTH = line width 
DNSTY = line density 


Enabling and disabling the effects are controlled through the 'THIK", 
"ROUN', and 'SQRE' E.G.A.'s that will be enabled through the ENABL, DSABL 
or SET routines. 


_ DSABL('THIK') nominal width lines 
ENABL('THIK') thickened lines 
ENABL('ROUN') round shaped ends 
ENABL('SQRE') square shaped ends 
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d = DNSTY 
w = WIDTH 
SQUARE ENDS 
d = DNSTY 
w = WIDTH 


ROUND ENDS 


Figure 2.1.1. LINE THICKENING 


ee Se a Cree ED Cue Gey Ge ED ee ne Oe SED CS Ot SED Se GES GES EY GS ED OD eS Ge Se OD So 


GPR340 USER'S MANUAL as 
Publication n° 454200234 


2.1.2. Dashing 


This effect is used to replace a continuous line by a recurring linear pattern. 


A pattern is made up of a sequence of strokes plotted with pen up and down 
alternately. The first stroke is always plotted pen-down. 


—~— 


Ll L243 14 L5 L6 L7 L8 L9 


The pattern will be described using the following parameters, defined by the 
DASH subroutine : 


- NSTRK : number of strokes in the pattern 


- DASPT :;: a 16 entries table containing the lengths of the NSTRK 
strokes that compose the pattern 


- IDASH : identification number of the pattern 


The SELEC('IDSH',N) subroutine is used to select the pattern number N' while 
simultaneously enabling the "dashing" effect. 


Enabling and disabling the graphic effect are controlled through the ‘'DASH' 
E.G.A.'s using the ENABL, DSABL or SET subroutines. 


ENABL('DASH' ) dashed lines 
DSABL ('DASH' ) standard lines 


Lastly, the 'DADJ' (Dash ADJustment) E.G.A. is used to adjust pattern length so 
that the plotted vector contain an integer number of patterns. '"DADJ' will be 
enabled or disabled using the ENABL, DSABL or SET subroutines. 
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2.1.3. Cumulating consecutive pen-up vectors 


When enabled by the ENABL routine, the 'LOPT' E.G.A. allows pen movements 
saving by cumulating consecutive pen-up vector plottings. 


It is a line G.A. in the sense that it affects the drawing of "invisible" lines 
composed of consecutive pen-up vectors. 


ENABL('LOPT') DSABL('LOPT' ) 


=S—s— Pen-up moves 


Pen-down moves 


Figure 2.1.3. CUMULATING PEN-UP VECTORS 
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2.2. TEXT G.A.'S USAGE 


By using the Text-Vector and Text G.A.'s, the programmer can achieve the 
following : 


- concatenate and justify character strings 

- control spacing 

- plot superscript and subscript 
These three features may be combined together. 
The basic subroutines used to plot character strings are SYMBOL and NUMBER. 
Their calling arguments specify the starting point coordinates of the string, 
the angle it makes with the +X direction, the number and height of the 
characters to plot (see Chapter 3). 


Any further information needed for the plotting are transmitted through the 
G.A.'s. 
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2.2.1 - Character string justification and concatenation. 


SS ED ee eee SS Se MD Se MD Ge GS Sy SD aD SD ED SD Say oA Se ED OS ND GED SDD One Sit SD SD Sw Se Se Oe oe me ee 


0 Ae Ge et Oe Ge Gs a CE OD GE eS GP GY CE OE GD OS GD 


The string is justified on a Text-Vector the length of which is specified 
by the TLENG (Text LENGth) Q.G.A., set by the TVECT subroutine. 


The origin and direction of the Text-Vector are derived from the arguments 
used in calling SYMBOL. 


Whenever the 'ISDP' E.G.A. is enabled, the subroutine computes the implied 
Text~Vector length from the character body while taking into account the 
selected spacing options (§ 2.2.2). 


The type of justification depends on the 'LEFT', 'RGHT', ‘CNTR’, '‘'TADJ' 
E.G.A.'s which are controlled by the ENABL, DSABL or SET subroutine. 


ENABL('RGHT') : Right justification 
ENABL('CNTR') : Center justification 


ENABL('TADJ') : Text adjustment 


CTL TRY XE TE 


ENABL('LEFT') : Left justification (= unjustified). 


Figure 2.2.1.1. -— TEXT VECTOR AND JUSTIFICATIONS 
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2.2.1.2. String concatenation 


Whenever the 'CONT' E.G.A. is enabled by the ENABL or SET subroutines, the 
character strings as produced by successive calls to the SYMBOL and NUMBER 
subroutines are concatenated within the plotting device storage, up to a limit 
of 256 characters. 


Their actual plotting is delayed until the text they compose is considered 
complete. That is whenever one of the following occurs : 


- the 'CONT' E.G.A. is disabled by the DSABL or SET subroutines 
- a call without continuation feature (X=999. and Y=999.) to NUMBER or 
SYMBOL takes place. 


The whole text is then justified on the current Text Vector and plotted as 
described in § 2.2.1.1.. 


Notes : When the 'CONT' E.G.A. is enabled, any instruction other 
than CALL SYMBOL or CALL NUMBER as well as any change to the 
arguments that define text angle and character size will 
give unpredictable results. 


After a text is plotted, the Reference Point is always 
located at the end of the Text-Vector. 


When the 'CONT' E.G.A. is enabled, the Reference Point is 
unchanged until the actual plotting is performed. 
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2.2.2. Spacing control 


Three types of control are available : 


- fixed spacing 
~ variable spacing 
- proportional spacing 


2.2.2.1. Fixed spacing 


It is the default option where all characters have the same 
extent (i.e. the character box width) and are plotted without 
between-grid spacing. 


The character-box width is controllable by the programmer. 
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2.2.2.2. Variable spacing 


In this option, the spacing between characters depends on the 
characters themselves. 


In the available standard character fonts with the BENSON 
Graphics Intelligence, every character has been defined with a 
beginning abscissa and an ending abscissa in the definition 


grid. 
The (ending abscissa - starting abscissa) difference is at 


least equal to the character width and may be referred to as 
the minimum character extent. 


Using the variable spacing feature introduces an other 
parameter, the SPCRA Q.G.A. (SPaCing RAtio), which defines the 
remaining space between characters. 


Tf the ‘'VSPA' (Variable SPAcing) E.G.A. is enabled by the 
ENABL routine and if SPCRA Q.G.A. equals zero, two consecutive 
characters will be moved closer together until the ending 
abscissa of the first meets the starting abscissa of the 


second. 


If the SPCRA Q.G.A. does not equal 0, the resulting spacing is 
called proportional. 


DSABL('VSPA') ENABL('VSPA') 
Ad = starting abscissa 
Af = ending abscissa 


Figure 2.2.2.2. —- VARIABLE SPACING 
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2.2.2.3. Proportional spacing 


The TEXAT subroutine, by defining the SPCRA (SPaCing RAtio) 
Q.G.A., can be used to extend the inter-character spacing. 


Proportional spacing option should be used only when variable 
spacing option is enabled. 


SPCRA=0. SPCRA=1. 
1 = (ending abscissa - starting abscissa) 
g = grid width 
d = SPCRA x g 


Figure 2.2.2.3. PROPORTIONAL SPACING 
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2.2.3. Superscript and subscript writing 


Inserting an escape sequence in a character string allows for 
superscript and subscript writing (upper and lower indexing). 


2.2.3.1. Index size and position 


The size and relative position of the characters composing a text 


are described by the following Q.G.A.'s : 


SUBRA -— SUBscript RAtio 


SUBOF - SUBscript OFfset 

SUPRA —- SUPerscript RAtio 
SUPOF - SUPerscript OFfset 
ALFRA - Line spacing ratio 


These 5 Q.G.A.'s are set by the TEXAT routine. 


H x SUBOF . 


‘Wi = HX SUBOA 
Ls = Hx SUPOF 
Hs = H XSUPRA 
Hy 
Lf Lf = Hyx ALFRA 
_ ; 


-— < 


Figure 2.2.3.1. SUPERSCRIPT AND SUBSCRIPT SIZE 
AND POSITION 


ee ee ee ee ee ee 
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2.2.3.2. The Escape Sequence 


The transition to subscript or superscript writing is controlled by 
inserting an Escape Character followed by a Command Character into the 
character string (refer to § 1.2.4.). 


The Escape Sequence will be interpreted as such only when the 'ESCA' 
E.G.A. is enabled. 


Example : SELEC ('ESCP',39) (39 = decimal code for &) 
ENABL ('ESCA') 


Then the text A&G3&G2&I=B&H2 
will result in the following : 


Figure 2.2.3.2. NESTED ESCAPE SEQUENCES 
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2.2.3.3. Meaning of the Command Characters 


eee eres ee ee ee ee Oa ns eT SY DD ND SE SY a SD SED GD SD 
——« 


&G = transition to subscript 
&H = transition to superscript 
&I = back to normal 

&& = plot character '&' 


Other Command Characters are used to get free from internal 
coding constraints : 


&1 = => selection of normal characters 
(codes ranging from 32 to 95) 


&2 = => selection of lower case characters 
Example : The string '&2Al' will be plotted as : 
al 
If host computer code is ASCII ; this will be 
performed by adding 32 to every code ranging 
from 64 to 95 included. 
&3 = => select one special character. 
Example : The string '&3A' will be plotted as : 
¢ 
Tf host computer code is ASCIT ; this will be 
performed by substracting 64 from the charac- 


ter following the Escape Sequence. 


By inserting escape sequences &A and &B, the user can change the 
character font within a text, *** 


&B 


transition to the Alternate Font (see § 3.3.3.). *** 


&A 


return to the Principal Font defined by the last call 
to SELEC('FONT',N). *** 


(Refer to § 1.2.5. and 3.3.3.). 


An illegal Escape Sequence will be considered as two current 
characters. 


*xk*k NOT AVAILABLE IN GPR 340 
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2.3. CHARACTER AND SYMBOL G.A.'S USAGE 


BENSON software in association with the X3 Graphics Intelligence provides the 
programmer with tools that allow for : 


- defining characters and symbols that would not be found in the standard 
fonts (see chapter 3.3.3.). 


~ changing character and symbol appearances by means of 7 Q.G.A.'‘'s : 


- CANGL, CLANT, CASPE for characters 

- SANGL, SLANT, SASPE for symbols 

. ‘FONT’ for both characters 
and symbols 


CANGL : define the angle between the 
character and the text direction. 


SANGL : define the angle between the 
symbol and the +X direction. 


CLANT and SLANT : define the slanting angle. 


CASPE and SASPE : define the width/heigth ratio of 
the character or symbol. 


slanting angle. 
text angle. 
character/symbol angle. 


QqQHnN 
tow 


Figure 2.3. CHARACTER AND TEXT ANGLES 
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The CANGL, CLANT, CASPE G.A.'s on the one hand and 
SANGL, SLANT, SASPE G.A.'s on the other hand, 
are defined by the SYMAT routine. 


The 'FONT' S.G.A. sets the Principal Font number to be used and will be changed 
by the SELEC subroutine. Its effect may be modulated by inserting Escape 
Sequences (see § 2.2.3.3.). 


The presence or absence of the "slanting" effect is controlled by enabling or 
disabling the 'SLNT' E.G.A. through the ENABL, DSABL or SET subroutines. 
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2.4. ENVIRONMENT G.A.'S USAGE 


The environment G.A.'s will in general be defined once and for all at initiation 
time of each drawing. 


They are designed to : 
- define the units to be used 
- describe implemented hardware. 


2.4.1. Choice of Units 


The programmer can use the units that suit him best to express lengths 
and angles. 


He makes it known by enabling one of the following E.G.A.'s through the 
ENABL subroutine : 


- 'CENT' : lengths are expressed in cm 

- 'INCH' : lengths are expressed in inches 
~ "DEGR' : angles are expressed in degrees 
- 'RADN' : angles are expressed in radians 
- 'GRAD' : angles are expressed in grades. 


It is possible to change units in the same drawing. 


The chosen units are referred to as "Current Units". All arguments of 
subroutines are expressed in Current Units, unless specified otherwise. 
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2.4.2. Hardware description 


The environment G.A.'s are used to help to automatically adapt to a given 
hardware configuration. 


These G.A.'s are set by the subroutine DEVAT which is in general called 
once at the beginning of the drawing. 


They define : 


- the Destination of the plotting commands generated (DESAT G.A.) 


- the device characteristics (resolution, adjustment factors...). 
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3 - SUBROUTINES DESCRIPTION 


3.1. OVERVIEW 


3.1.1. Package architecture 


ae tay Aes oy a a DD US SD GD Ge PR ND ee SN ED SD Od 


The package is composed of the two following subroutine groups : 
- strictly ISDP compatible subroutines (11 subroutines) : 


- AXIS draws an axis 

- FACTOR selects an enlargement factor 

. LINE plots a line 

- NEWPEN switches pen 

- NUMBER plots a floating number 

. OFFSET introduces an offset and a scaling factor 
- PLOT plots a vector 

. PLOTS initializes a plotting 

- SCALE computes scaling factors 

- SYMBOL plots a text or a symbol 

. WHERE inquires about current pen location. 


- subroutines implementing the X3 intelligence (25 subroutines) 


. G.A.'s controlling subroutines (enabling, disabling, 
selecting, value setting, saving ...) 


. advanced plotting subroutines (ARCPL, CRCLE, EXSYM, NEWPG) 


. new characters or symbols description and loading 
subroutines (SYMDF, SYMLD, SYMLP, SYMCL) *** 


. filling of area (POLYG, TONE) *** 


. user specific exit subroutines (USDEV, USBEG, USEND, USCHK, 
USERR). 


k*k* NOT AVAILABLE IN GPR 340 
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3.1.2.- Error handling 


An error handling facility is available which can be adapted to the 
user's needs. 


This is implemented by the means of an internal subroutine, B8ERR, 
which is always terminated by a call to the user exit subroutine 
USERR(ISEV,NOERR), giving the following parameters : 


NOERR is a 4 digit number that identifies the error if any. 
The two rightmost digits represent the error code. 


The two leftmost digits identify the subroutine where the error 
was detected. 


ISEV reports error severity. 


ISEV=0 no error. 
ISEV=1 warning. GPR1OO will try to perform an self-correction. 
ISEV=2 severe error. 


Using of ERROR subroutine is controlled by the 'OPTR' S.G.A. 


‘OPTR'=0 the ERROR subroutine is not used (time saving 
option). 

‘OPTR'=1 ERROR is called only if an error occurs with 
severity 1 or 2. 

‘OPTR'=2 ERROR subroutine is called after every plotting 
subroutine (PLOT,AXIS,NUMBER,SYMBOL ...). Even 
if no error occurs. 


This feature may be used to build up an error trace file 
with the USERR subroutine. 


'OPTR'=4 same as 'OPTR'=2 but ERROR subroutine is called after 
every G.A. handling subroutine (SELEC,ENABL,TEXAT,SYMAT...). 


These options can be combined by adding the corresponding 'OPTR" values. 


Example : 


"OPTR'=6 => 'OPTR'=2 and 'OPTR'=4 
'OPTR'=5 => same as 'OPTR'=4, but only for severity 1 and 2. 


The USERR subroutine may be used for : 
- displaying an error message on 2 device. 
~- suspending the program in case of severity 2 error. 
- building up an "ERROR-TRACE" file. 


If the 'OPTR' §.G.A. is disabled, then this subroutine is ineffective, 
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3.2. ISDP COMPATIBLE SUBROUTINES 


This first group of subroutines composes the BENSON package that provides 
ISDP compatibility. 


As the facilities provided by the software to control the appearance of 
lines, texts and characters do apply to these subroutines, strict ISDP 
compatibility will be ensured only if all of the E.G.A.'s are set to their 
initial values (see appendix B). 


The 'ISDP' E.G.A. is available to the programmer to conveniently restore 
the Initial Context. 


When the '‘'ISDP' E.G.A. is enabled, the Initial Graphics Context will 
replace the Current Graphics Context, which is restored when the '‘'ISDP' 
E.G.A. is disabled. 


Any G.A. change occurring while the 'ISDP' E.G.A. is enabled will affect 
the saved G.A. without modifying the Current Context (which is the Initial 
Context). Such a change will become effective only when the "ISDP' E.G.A. 
is disabled. 
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3.2.1. The AXIS subroutine 


Plots a graduated axis. 


Calling sequence : 
CALL AXIS (XPAGE, YPAGE, IBCD,NCHAR, AXLEN, ANGLE, STARV, DELTV) 


XPAGE, YPAGE 


IBCD 


NCHAR 


AXLEN 


ANGLE 


STARV 


DELTV 


ee 


Coordinates of the axis starting point. 


Text contents to be written parallel to the axis. 
It may be a litteral if allowed by the compiler or the 
address of an alphanumeric field. 


Specifies the number of characters in IBCD. Its sign 
tells on which side of the axis the graduations and title 
should be placed. 


If NCHAR > 0, then these labels will appear on the right 
hand side of the oriented axis. 


I£ NCHAR < 0, then these labels will appear on the left hand 
side of the oriented axis. 


Axis length in cm or inches (Current Unit). 


Angle between the axis and the +X direction, in degrees, 
radians or grades depending on the 'DEGR', '‘RADN', 'GRAD' 
E.G.A.'s configuration. 


Maximum or minimum (depending on the sign of DELIV 
value displayed opposite the first tic. 


Number of units represented between two tic marks on the 
axis. 


The first tic is plotted at the nearest multiple of DELVT, 
and labelled with the according value, this allows plotting 
of 0.0 value in this case at a tic mark. 


The STARV and DELTV arguments are usually set by a previous 
call to the SCALE subroutine. 
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3.2.1. The AXIS subroutine (continued) 


DELTV is automatically multiplied by a factor so that the graduation will 
stretch out from 0.01 to 100. The suitable correcting factor is displayed 
as an addendum to the axis title : 


Proposed DELTV accepted DELTV Addendum to title 
DELTV < 0.01 DELTV * 10n * 10-n 

0.01 < DELTV < 100 DELTV 

10n < DELTV < 10n+tl DELTV / 10n * 10n 


If the space needed to write down the value to appear opposite each tic 
mark exceeds 80% of the space contained between two tic marks, values will 
be displayed only once every two tic marks, 

Temporary graphic attributes : 


Text Angle = ANGLE 


The Reference Point after a call to AXIS is the point with coordinates 
XPAGE, YPAGE. 


Heigth h equals H/2. 


The H heigth is 3.5 mm and the title label is centered with respect to the 
axis. 


Size and offset of superscript characters added to the title are defined by 
the SUPOF and SUPRA Q.G.A.'s. 
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3.2.2. The FACTOR subroutine 


Selects an enlargement factor. 


Calling sequence : CALL FACTOR(FACT) 


FACT : ratio between the plotted drawing size and the nominal size. 


Example : if FACT=0.5, pen movements following the CALL 


FACTOR(FACT) instruction will be twice lesser for any given 


vector (sample application : time saving in a development phase). 


Changes to FACT will affect the size of characters and texts but 
will not affect line widths nor the lengths of dash patterns. 
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3.2.3. The LINE subroutine 


Plots a curve defined by the coordinates of each of its points. 


Calling sequence : CALL LINE(XARAY, YARAY,NPTS, JNC,LINTP, INTEQ) 


XARAY ’ array containing the abscissa values. 
YARAY : array containing the ordinate values. 
NPTS : number of (X,Y) pairs to take into account. 
INC : scanning step in the XARAY and YARAY arrays. 


E.g : if INC=1, all the elements in the array will be taken 
into account. 


if INC=3, one element out of every 3 is computed. 


XARAY(NPTS*INC+1) contains a lower or upper bound of the set of 
abscissas. 


YARAY (NPTS*INS+1) contains a lower or upper bound of the set of 
ordinates. : 


XARAYS (NPTS* INC+INC+1) contains the scaling factor to be applied to the 
abscissas. 


YARAYS(NPTS*INC+INC+1) contains the scaling factor to be applied to the 
ordinates. 


These four elements are usually set by a previous call to SCALE (see 
3.2.9.). 
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3.2.3. The LINE subroutine (continued) 


LINTP 


INTEQ 


OS a ae Oe Gy Se Od eS SD TD SY YD OD Se 


a signed integer that controls the curve appearance. 


If LINTP=0, consecutive points of the curve are connected 
by a straight line. 


If LINTP is non-zero, some points of the curve are 
displayed as a centered symbol of constant 3,5 mm 


height ("Marker"). 


The absolute value of LINTP stands for the recurrence 
frequency of the Marker (e.g. if LINTP=4, one 
point out of 4 will be represented by a Marker). 


If LINTP is positive, all points of the curve are 
connected by a line segment as when LINTP=0, but one 
point out of LINTP points is represented by a Marker. 


If LINTP is negative, only the Markers will be 
plotted. 


O0< (INTEQ<14) contains the decimal code of the centered symbol 
to be used when LINTP is not zero (see Appendix A). 


LINE uses the following temporary Q.G.A.'s : 


. SASPE = l. 
. SLANT = 0. 
- SANGL = 0. 


The Reference Point after a call to LINE is the last point 
taken into account. 
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3.2.4. The NEWPEN subroutine 


Switches pen. 
Calling sequence : CALL NEWPEN(IPEN) 
IPEN : number of the pen to be used. 
IPEN=1 number 0 pen 
2 number 1 pen 


3 number 2 pen 
4 number 3 pen 


COM 340 particularity : 
For COM 340 pen number is used to specify filter number to be selected. 


The filter number selected depends on assignement specified by call 
PENAT. 


IPEN must be set between 1 and 7. 


to 
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3.2.5. The NUMBER subroutine 


Plots a floating number. 
Calling sequence : CALL NUMBER(XPAGE, YPAGE, HEIGH, FNP, ANGLE, NDEC) 


stand for the coordinates of the lower left corner of lst 
plotted figure grid (starting point). The pen is up while 
being moved to this location. 


XPAGE, YPAGE 


Whenever XPAGE and/or YPAGE=999., the current Reference 
Point coordinate(s) are used as starting coordinate(s) (a 
sample application : character string concatenation). 


HEIGH : figure height from which figure width is derived using the 
CASPE Q.G.A. 


FNP : number to be plotted, in floating representation. 
ANGLE : angle between the text and the +X direction. 
NDEC : controls the output format ; 


9>NDEC>O NDEC specifies the number of figures to be 
plotted on the right on the decimal point. 


If NDEC=0, the number will be rounded to the nearest 
integer and followed by a decimal point. 


Tf NDEC=-1, the number will be rounded to the nearest 
integer and plotted without decimal point. 


If -9<NDEC<-1, the number will be rounded and expressed 
in tens if NDEC=~2, hundreds if NDEC=-3, thousands if 


NDEC=-3, etc. ee 


E.g.: FNP= NDEC= OUTPUT= 
123.456 2 123.46 
123.456 1 123.5 
123.456 0 123. 
123.456 ~l 123 
123.456 =2 12 


123.456 =2 1 
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3.2.5. The NUMBER subroutine (continued) 


The following temporary A.G. is used : 
CANGL=0. 


If the 'IDSP' E.G.A. is disabled, all the other G.A.'s will affect 
the plotting of the number. 


In particular, the string of figures will be justified and on the 
current Text~Vector in accordance with the 'CNTR', 'RGHT', 'LEFT' and 
TADJ' E.G.A's. (XPAGE,YPAGE) point will be assumed as the origin of 
the Text-—Vector. 


If : ~ 'CONT' E.G.A. is enabled, 
- XPAGE and YPAGE = 999. (full continuation feature), 


- ANGLE and HEIGH are unchanged comparatively to the 
last call to SYMBOL or NUMBER, 


then, the string of figures is concatenated, on the current 
Text-Vector, to the characters previously specified by the 
calls to SYMBOL or NUMBER. 


If 'ISDP' E.G.A. is disabled, then after the execution of 
subroutine NUMBER, the Reference Point is located at 
the end of the Text-Vector. 


Tf 'ISDP' E.G.A. is enabled, the Reference Point will be 
located at the lower right corner of the last plotted 
number grid (end of the implied Text~Vector generated 
by SYMBOL). 


If the concatenation option is used, the Reference Point is handled as 
explained in § 2.2.1.2. 
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3.2.6. The OFFSET subroutine 


Defines an alternate offset and scale in the drawing. 
Calling sequence : CALL OFFSET (XOFST, XSCAL, YOFST, YSCAL) 
XOFST and XSCAL define the offset and scaling factor to be applied 
to the abscissa values when PLOT is used with JPEN=12, 
~12, 13 or -13 (see § 3.2.6). 
YOFST and YSCAL define the offset and scaling factor to be applied 
to the ordinate values when PLOT is used with IPEN=12, 
-12, 13 or -13 (see § 3.2.6). 


This subroutine causes no pen movement. 
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3.2.7. The PLOT subroutine 


Plots a vector and controls address block generation for off line 
connections. 


XPAGE, YPAGE : Coordinates of the point to reach, as referenced from 
the lastest origin. 


IPEN : a signed integer that controls pen status (up-down), 
magnetic tape address block generation, use of the alternate 
offset and scaling factor as defined by OFFSET, and 
definition of a new origin. 


IPEN=2 pen down move. 


IPEN=3 pen up move (cumulated without movement if the 
"LOPT' E.G.A. is enabled). 


IPEN=0 or 1 pen status same as during the last move. 


IPEN=-2 or -3 same action as when IPEN=2 or 3 but the 
(XPAGE, YPAGE) point is taken as the new 
origin. If the case arises, an address block 
is generated on the magnetic tape and the 
exit subroutine USCHK is called (§ 3.3.4). 


TPEN=-1 same action as when IPEN=0 or 1 with origin 
redefined as when IPEN=-2 or -3. 


IPEN=12 pen down vector whose coordinates are defined 
by the alternate offset and scaling factor as 
described in the OFFSET subroutine (3.2.5.). 


The point actually reached by the pen will 
have as coordinates : 

XPLOT= (XPAGE-XOFST) /XSCAL 

YPLOT= (YPAGE-YOFST) /YSCAL 


The default values for XOFST,YOFST, XSCAL 
and YSCAL are 0, 0, 1, 1 respectively. 


TPEN=—12 same action as when IPEN=12 and new origin at 
XPLOT, YPLOT. 
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3.2.7. The PLOT subroutine (continued) 


IPEN=13 same action as when IPEN=12, with pen up. 


IPEN=-13 same action as when IPEN=13 ; and new origin at 
XPLOT, YPLOT. 


IPEN=22/23 same action as when IPEN=-2 or -3 without 
generating an address block. 


IPEN=999 plotting end. A block of address 9999 is 
written on the magnetic tape that is rewound; 
exit subroutine USEND is called (see § 
Sooeae) s 


IPEN>=30 JPEN specifies the number to be used to write 
the next address block ; subsequent address blocks 
will be assigned sequential numbers starting at 
IPEN. 


After a call to PLOT, the Reference Point is at (XPAGE, 
YPAGE) (except when IPEN >=30, in which case it remains 


unchanged). 


Note : a shift in origin will not change the XOFST and YOFST values. 
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3.2.8. The PLOTS subroutine 


Initiates line plotting. 


Calling sequence : CALL PLOTS(IBUF,LBUF,ND) 


IBUF, LBUF 


ND 


not used 
output logical unit number or port number. 


This subroutine is to be called each time a drawing is 
initiated; it assigns its initial value to each G.A. (see 
Appendix D). It will open the plotting file and record the 
001 address block on magnetic tape, as needed. 


The exit subroutine USDEV is called at the beginning of 
PLOTS just after default device setting. 


The exit subroutine USBEG is called immediately prior to the 
RETURN statement (§3.3.4). 
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3.2.9 — The SCALE subroutine 


ARRAY 


AXLEN 


INC 


Computes a limit and a scaling factor in view of projecting a 
sequence of values on an axis. 


This subroutine will often be used prior to calling AXIS or LINE. 


Calling sequence : CALL SCALE(ARRAY,AXLEN,NPTS, INC) 


address of the first element in the sequence of data to be 
used. 


length of the axis on which data will be projected. 


: a signed integer whose absolute value specifies the step 


used to scan the data array. 


e.g. : if ABS(INC)=1l all the datas will be used 
if ABS(INC)=3 one data out of 3 will be 
used. 


This subroutine will compute the values STARV and DELTV 
which will be stored in addresses :; 


ARRAY (NPTS*INC+1) for STARV 
ARRAY (NPTS* INC+INC+1 ) for DELTV. 


Therefore the ARRAY table has to be overdimensionned by at 
least INC+l entries. 


I£ INC>O STARV is a lower bound and the increment parameter 
DELTV is positive. 


Tf INC<O STARV is a upper bound and the increment parameter 
DELTV is negative. 
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3.2.9. The SCALE subroutine (continued) 


Computation method : 


Let AMAX and AMIN be the maximum and minimum data values under 
consideration : 


The subroutine first computes : 

DELT1 = (AMAX-AMIN) /AXLEN 

DELT will be the least upper bound of DELT1 in the format (1,2,4,6 
or 8)*10. 


T£ INC>O, STARV will be the greatest multiple of DELTV less than 
AMIN. 


T£ INC<O, STARV will be the least multiple of DELTV greater than 
AMAX, 


e.g. : let 23, 43, 53, 60, 12, 10, 8, 5, 3, 2, -3 be the datas to be 
projected on a 20cm length axis with INC=1. 


DELT1 = 6-(-3) = 3.15 
20 

DELTV = 4 

STARV = -4 
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3.2.10. - The SYMBOL subroutine 


Plots a Text (lst type call) or a Symbol (second type call). 


Calling sequence : CALL SYMBOL(XPAGE, YPAGE, HEIGH, IBCD, ANGLE, NCHAR) 


lst type call : NCHAR > 0 


Plotting of a text. 


XPAGE, YPAGE 


HEIGH 


IBCD 


ANGLE 


NCHAR 


Grid left lower corner coordinates of the first 
character to be plotted (starting point). Pen is up while 
moving towards that point. 


If XPAGE and/or YPAGE=999., the coordinates of the 
Reference Point are assumed to be the starting point 
coordinates (sample application : concatenating strings of 
characters). 


Character height, from which character width is derived 
using the CASPE Q.G.A. 


Identification of text to be plotted. This may be a 

litteral if allowed by the compiler, or the address of a 
left justified string of characters. The text may contain 
Escape Sequences (see § 2.2.3). 


Angle between text direction and +X direction. 


Number of characters in IBCD, including Escape Sequences 
if any - 


The following temporary Q.G.A. is used ; 
TANGL = ANGLE 


Tf the 'ISDP' E.G.A. is disabled, all the remaining G.A.'s 
will affect the plotting of the text. 


In particular, the string of characters will be justified 
and concatenated on the current Text-Vector in accordance 
with the 'CNTR','RGHT','LEFT' and ‘'TADJ' E.G.A.'s. The 
point with coordinates (XPAGE, YPAGE) will be considered as 


Text-Vector origin. 
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If : — 'CONT' E.G.A. is enabled, 


- XPAGE and YPAGE = 999. (full continuation feature), 


- ANGLE and HEIGH are unchanged comparatively to the 
last call to SYMBOL or NUMBER, 


then, the string of characters is concatenated, on the 
current Text-Vector, to the characters previously specified 
by the calls to SYMBOL or NUMBER. 
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3.2.10. - The SYMBOL subroutine - Ist type call : NCHAR>O (continued) 


If 'ISDP' E.G.A. is disabled, then, after the SYMBOL subroutine is 
executed, the Reference Point is located at the end of the 
Text-Vector. Otherwise, it will be located at the grid lower right 
corner of the last plotted character (implied Text-Vector end 
generated by SYMBOL). 


If the concatenation option is used, the Reference Point is handled as 
explained in § 2.2.1.2. 


An example of how SYMBOL is used 


Assuming the text to be plotted is 


2 
VALUE OF X = 12.123 


Strictly ISDP compatible procedure : 


CALL SYMBOL(X,Y,1.,10HVALUE OF X,0.,10) 
CALL SYMBOL(999.,Y+.7,.5,2H2 ,0.2) 
CALL SYMBOL(999.,Y,1.,2H= ,0.52) 

CALL NUMBER(999.,999.,1.,12.1229,0.,3) 


Procedure using GPR 100 facilities (§ 2.2.3) : 


& = escape character. 


CALL ENABL('CONT') 
CALL SYMBOL(X,Y,1.,18HVALUE OF X&G2&I = ,0.,18) 


CALL NUMBER(999.,999.,1.,12.1229,0.,3) 
CALL DSABL('CONT') 


Figure 3.2.10.1. -—SYMBOL AND NUMBER USE 


a ee 
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3.2.10. - The SYMBOL subroutine - 2nd type call 


Plots a single symbol 


Calling sequence : 


2nd type call 


XPAGE, YPAGE 


ANGLE 


HEIGH 


INTEQ 


ICODE 


CALL SYMBOL (XPAGE, YPAGE, HEIGH, INTEQ, ANGLE, ICODE) 

ICODE<0 

Same meaning as in the lst type call. If the symbol to be 
plotted is a centered symbol, the (XPAGE, YPAGE) point is 
the center of the symbol. 


Angle between the symbol and the +X direction. 


Symbol height, from which symbol width is derived using the 
SASPE Q.G.A. 


Symbol decimal code (see Appendix B). 
O<=INTEQ<14 will result in a centered symbol. 


If ICODE=-1, pen is up while moving toward the point of 
coordinates (XPAGE, YPAGE). 


If ICODE=-2, pen is down. 
The following temporary Q.G.A. is used :; 
SANGL=ANGLE 


Reference Point is located at symbol center. 


3 RD type call ICODE = 0 


XPAGE, YPAGE, ANGLE, HEIGH have same meaning as in second type call, but 


INTEQ gives the character coding in EBCDIC code (Right 
justified). 
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PON Symbol defini- 
XPAGE= Xc XPAGE= Xc4d tion grid. 
YPAGE= Yc _.. YPAGE= 999. 


PLOTTING A CENTERED SYMBOL 


CESS Character defi- 


nition grid. 


XPAGF= Xc XPAGE= Xc+d 
YPAGE= Yc YPAGE= 999. 


Figure 3.2.10.2. PLOTTING THE CHARACTER 'A' 
AS A CENTERED SYMBOL 
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3.2.11 The WHERE subroutine 


Returns the current reference point. 
Calling sequence : CALL WHERE(RXPAG, RYPAG, RFACT) 


After a call to the WHERE subroutine, RXPAG and RYPAG will 
contain the coordinates of the current Reference Point. 


RFACT contains the current value of the scaling factor(see 
subroutine FACTOR, § 3.2.2). 
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3.3. SUBROUTINES INTRODUCED BY THE X3 INTELLIGENCE. 


This group of subroutines make all the features of the X3 Intelligence 
available to the user. 


4 groups of subroutines will be distinguished ; 
- G.A. control subroutines : 


ENABL-DSABL-SET E.G.A.'s enabling, disabling. 


SELEC S.G.A. selection. 

SELGA saving and restoring Graphics Contexts. 
SYMAT characters and symbols Q.G.A.'s definition. 
DASH dash G.A.'s definition. 

THICK thick Q.G.A.'s definition. 

TVECT Text-Vector length definition. 

TEXAT text Q.G.A.'s definition. 

DEVAT device Q.G.A.'s definition. 


- Advanced plotting subroutines : 


ARCPL arc or circle plotting. 

CRCLE full circle plotting. 

EXSYM centered symbol plotting. 

NEWPG newpage definition. 

POLYG*** plot and fill a polygon describe in X,Y pairs 
within arrays. 

TONE*** fill an area or areas with a shade of gray or 


special. pattern. 
- New character description and loading subroutines *** ; 
SYMDF, SYMLD, SYMLP, SYMCL. 
- Exit subroutines : 
USDEV, USBEG, USEND, USCHK, USERR. 


*k*k NOT AVAILABLE IN GPR 340 
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3.3.1. G.A. control subroutines 


Enables / disables an E.G.A. 


Calling sequence : CALL ENABL(ADAGE) enabling 
CALL DSABL(ADAGE) disabling. 


ADAGE : identification of the pertinent E.G.A. This may be the 
address of a 4 characters string, a litteral if allowed by 
the compiler, or the numeric equivallent of the E.G.A. 
(E.Q.), each of these possibilities being exclusive of the 
other ones on a particular host computer. 


Examples : CALL ENABL('THIK') 
CALL ENABL(4HTHIK) 
DATA ATHIK/'THIK'/ 


CALL ENABL(ATHIK) 
These subroutines may implicitly affect several of E.G.A.'s 


E.g. ENABL('DEGR') will enable the 'DEGR' E.G.A. but will disable 
the 'GRAD' and 'RADN' E.G.A.'s at the same time. 


In procedures where it is appropriate to make the choice between DSABL 
and ENABL dependent on a parameter, the SET form will be used : 


SET (ADAGE, 0) =DSABL (ADAGE) 
SET (ADAGE, 1 )=ENABL (ADAGE) 


Remark on the use of DSABL : 


Any time an ambiguity arises when executing a CALL DSABL, the default 
configuration of the concerned E.G.A.(s) will be restored. 


E.g. consider the following sequence : 
ENABL ('RGHT') 
ENABL('TADJ') 
DSABL('TADJ'). 
The DSABL('TADJ') is interpreted as an ENABL('LEFT')., 


Whenever possible, enabling commands (ENABL) will be used rather 
than disabling commands (DSABL). 
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3.3.1.1.ENABL / DSABL / SET (continued) 


LIST OF THE £E.G.A.'S ACCESSIBLE VIA ENABL /  ODSABL 


CONCERNED | E.Q. ~"[ RESULT OF AN RESULT OF A 

E.G.A. ENABL (ADAGE) DSABL (ADAGE) 

CENT 1 Lengths expressed in cm Lengths in inches 

CNTR 1l Central justification ENABL('LEFT' ) 
on Text-Vector 

CONT 28 Character strings End of concatenation 
concatenation 

DADJ 16 Dashing adjustment No dashing adjustment 

DASH 17 Plotting in dashed lines Plotting in normal lines 

DEGR 4 Angles expressed in degrees} No effect 

ESCA 13 Escape characters taken Escape characters 
into account (§ 2.2.3.2) handled as normal 

FILL ** 31 Filling of area No filling 

GRAD 6 Angles expressed in grades | ENABL('DEGR"') 

INCH Zz Lengths expressed in inches| Lengthes in cm 

ISDP 22 Back to Initial Graphics Restoration of Current 
Context G.A.'s as they were at the 


last ENABL('ISDP'). 


orm ee es ae eae ae ces ee ey cn cee ete ed ee ca ce eee a hems ey GS SS ND SS OD SS SS SS SS SS SS LD SS FS DS SS DO a SS SS SS Le ED ED SD Se es SD 


LEFT 9 Left justification on No effect 
Text-Vector 

LOPT 3 Pen-up moves cumulation No pen-up moves 

cumulation 

RADN 5 Angles expressed in radians] ENABL('DEGR') 

RGHT 10 Right justification on ENABL('LEFT' ) 
Text-Vector 

ROUN 18 Thick lines have round Square shaped ends 


shaped ends 


ee ee re ee me ee ee ee en ee ee ee ee ee a re ee es ae ee re ee ee ee ee we 


*k : Effective only if the device is an 9XXX series connected to the 
GW1000-64. 
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3.3.1.1. ENABL / DSABL / SET (continued) 


LIST OF THE E.G.A.'S ACCESSIBLE VIA ENABL / DSABL / SET 


(continued) 


RESULT OF AN 
ENABL (ADAGE) 


No effect 


Slanted characters and 
symbols 


Activates Speed optimi- 


zation algorithm 


Thick lines have square 
shaped ends 


Text adjustment on Text- 
Vector 


Initiates thick line 
plotting 


Variable Spacing 


RESULT OF A 
DSABL (ADAGE) 


Return to default Device 
Axes 


Back to normal 
characters and symbols 


Each vector is drawn inde- 
pendently of the previous 
one. 

Round shaped ends 
ENABL('LEFT' ) 


Back to normal lines 


Fixed Spacing 


Effective only if the device is an X5 series. 
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3.3.1.2. The SELEC subroutine 


Selects one S.G.A. value out of n allowed values. 
Calling sequence : CALL SELEC(ADAGS, JDCUR). 

ADAGS : Identification of the pertinent S.G.A. ; this may be the 
address of a character string, a litteral if allowed by the 
compiler, or the numeric equivalent of the S.G.A. (These 
possibilities are exclusive from each other on a particular 
host computer). 

Examples : - CALL SELEC('ESCP', 29) 

- CALL SELEC(4HESCP, 29) 


DATA AESCP /'ESCP'/ 


CALL SELEC (AESCP,29) 


IDCUR : Value to be assigned to the S.G.A 


The G.A.‘s concerned by this subroutine are the following : 


Selects dash pattern number IDCUR 


PENX Selects pen number IDCUR 
FONT*** Selects font (IDCUR=1 or 2) 
ESCP Selects the escape character (32 <= IDCUR <= 65) 
(§222 3523)’. 
OPTR Controls B8ERR subroutine use (§ 3.1.2.). 
GCOD * Gray level code : 
0 to 15 Shades of gray 
100 to 115 Special patterns 
LUMI ** Brightness selection (0 to 1023) 


* Effective only on the serie 9XXX connected on the GW1000-64. 


**k For COM 340 ONLY. 
*kk NOT AVAILABLE IN GPR 340 


es ee ener 
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3.3.1.3. The SELGA subroutine 


Saves and restores all or part of the G.A.'s 
Calling sequence : CALL SELGA(ICODE, ARRAY, LENGT) 


ICODE : JCODE sign > 0 => save. 
ICODE sign < 0 => restore. 


ICODE absolute value is used to select the class of G.A.'s to 
save or restore. The G.A.'s are classified as described in 
appendix B. 


ICODE=1 Environment G.A.'s 
= Line G.A.'s 
= Character G.A.'s 
= Symbol G.A.'s 


=16 Text G.A.'s 
=32767 All G.A.'s are to be saved or restored. 
TCODE= Special Use. 


All Current G.A.'s are printed on the peripheral 
of logical unit number LENGT. The ARRAY argument 
is unused in this case. 

Save operations may be combined by adding the corresponding ICODE values. 


E.g. ICODE = 12 (4 + 8) will save both Symbol and Character 
G.A.'s. 


ARRAY : save area address 


LENGT : available length in the area. Depending on the G.A. class 
to be saved, the minimal length must be : 


G.A. class Area length required 
environment 9 
line 26 
text ll 
character 10 


symbol 9 


iii Mh) 
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3.3.1.4. The SYMAT subroutine 


Defines the Q.G.A.'s that affect characters or symbols plotting (see 
§ 2.3.) 


Calling sequence : CALL SYMAT(XASPE, XANGL, XLANT,KASYM). 


XASPE : value to be assigned to the CASPE or SASPE Q.G.A. 
(depending on KASYM) : width/height ratio. 


XANGL : value to be assigned to the CANGL or SANGL Q.G.A. 
(depending on KASYM) : angle between the character and the 
Text-Vector direction or angle between the symbol and the +X 
direction. 


XLANT : value to be assigned to the CLANT or SLANT Q.G.A. 
(depending on KASYM) : slanting angle. 


tl 
wo 


KASYM : I£ KASYM 3; character Q.G.A's are defined. 


T£ KASYM = 5 $; symbol Q.G.A.'s are defined. 
both character and symbol Q.G.A.'s are 


simultaneously defined, with the same 
values. 


If KASYM 


Nl 
“N 
we 


NOTE : Character Angle is not available (forced to 0.). 
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3.3.1.5. The DASH subroutine 


Describes a pattern used in a dashed line (see § 2.1.2.)and enables 
the "dashing" effect (ENABL('DASH')). 


Calling sequence : CALL DASH(IDASH,DASPT,NSTRK). 


IDASH : Value assigned to the 'IDSH' S.G.A (pattern identification 
number). 


DASPT : 16 entries table containing the length of each of the 
strokes composing the pattern. 


NSTRK : number of strokes that compose the pattern (up to 16). 


The actual length of the strokes that compose the pattern is 
unaffected by calls to subroutine FACTOR. 
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3.3.1.6. The THICK subroutine 


Specifies line width and enables the thickening effect (ENABL('THIK')). 
Calling sequence : CALL THICK(WIDTH, DNSTY) 
WIDTH : line width in Current Units (refer to fig. 2.1.1.). 


DNSTY : distance between two adjacent lines, in Current Units. 


Actual line width is unaffected by calls to subroutine FACTOR. 
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3.3.1.7. The TVECT subroutine 


Specifies current Text-vector length (see § 2.2.1.). 


Calling sequence : CALL TVECT(TLENG) 


length of the Text-Vector on which the text to be plotted 
during the next call to SYMBOL or NUMBER will be justified 
in accordance with the 'LEFT', 'RGHT', 'CNTR', 'TADJ' and 


‘CONT’ E.G.A.'s. 


TLENG H 


If TLENG <= 0 the text vector lenght is implicitely computed from the 
character with and the number of characters to draw, as they appear in 
the call to SYMBOL or NUMBER. Note that if E.A.G. 'CONT' is enabled 
and TLEN is L <= 0, then impredictable results may occur. 

Refer to Appendix E for further explanations and examples of Text 


plotting. 
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3.3.1.8. The TEXAT subroutine 


Sets the text Q.G.A.'s (see § 2.2.3.). 


Calling sequence : 
CALL TEXAT(SUBRA, SUBOF, SUPRA, SUPOF, ALFRA, SPCRA) 


SUBRA : SUBscript RAtio 


SUBOF : SUBscript OFfset 


172) 
fon} 
rd 
Ss 


SUPerscript RAtio 
SUPOF : SUPerscript OFfset 


ALFRA : Line Feed RAtio 


SPCRA : SPaCing RAtio 


Li = H x SUBOF . 
Hi = Hx SUBSA 
Ls = Hx SUPOF 
Hs = H XSUPRA 


‘Lf = Hyx ALFRA 


Ee —— ee — 
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3.3.1.9. The DEVAT subroutine 


Sets the device describing Q.G.A.'s. 


Calling sequence : CALL DEVAT(ICOD, ARRAY) 


A- ELECTROMECHANICAL AND ELECTROSTATIC PLOTTERS 


TCOD=1 : ARRAY(1) and ARRAY(2) contain the values to be 
assigned to the STEPX and STEPY Q.G.A.'s, in number of steps per 
em, whatever the Current Units are. 
Other elements of ARRAY are ignored. 


TCOD=2 : ARRAY(3) and ARRAY(4) contain the values to be 
assigned to the scale correcting Q.G.A.'s ECARX and ECARY. 


ECARX = correction in number of cm/m X-wise. 
ECARY = correction in number of cm/m Y-wise. 


Example .: Assume the following statements : 
CALL PLOT (0.,0.,3) 
CALL PLOT (100.,0.,2) 
CALL PLOT (100.,100.,2) 
CALL PLOT (0., 100. 52) 
CALL PLOT (0.,0.,2) 


produce a rectangle, with the following edge sizes : 


- along X axis : 100.6 cm 
- along Y axis : 99.8 cm 


Then, the following adjustments are to be introduced : 


ECARX (100.-100. 6) 
ECARY (100.- 99.8) = 
Other elements of ARRAY are ignored. 


- 0.6 
0.2 


TCOD=3 +: combines both ICOD=1 and ICOD=2. 


ARRAY(1) => STEPX 
ARRAY(2) => STEPY 
ARRAY (3) => ECARX 
ARRAY(4) => ECARY 


TCOD=4 : ARRAY(5) contain the description of the Destination of the 


plotting commands generated by GPR100, i.e. the DESAT Q.G.A. : 


DESAT = Oto 9: plotting Commands are output on a temporary 
file (magtape, disk...) 
10 to 19 : output on a local asynchronous line. 
20 to 29 : output on a remote asynchronous line. 


Other values : reserved. 


Depending on the host computer, one or more values of DESAT are available 
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ARRAY (6) is reserved for future use and must be set to 0 for this 
call. Other elements of ARRAY are ignored. 


ICODE=8 : ARRAY (7) and ARRAY (8) are taken into account. Other elements 
are ignored. This value of ICODE is effective only with X5 
Series. 


ARRAY(7) : Gives the type of desired transformation(s). 
Array(7) is thereafter referred to as SYMRT 


argument. 

SYMRT = 0 Identity transformation. 
SYMRT = 1 X-axis symmetry. 

SYMRT = 2 Y-axis symmetry. 

SYMRT = 4 + 90° Rotation around origin. 
SYMRT = 8 +180° Rotation around origin. 


(i.e. symmetry around origin). 


Any selection of two successive transformations out of these 
possibilities can be performed by giving the sum of the corresponding 
codes. 


ICODE=16: ARRAY (9) and ARRAY (10) are taken into account. Other elements 
are ignored. This value of ICODE is effective only with 9XXX 
serie connected on the controller GW1000-64. 


ARRAY(9)  : Gives the number of copies for the plot. 
ARRAY(10) : Gives the paper notion before and after the plot : 
(0 Slew) 


(1 Top of form) 
Ex : ARRAY (7) = 5 will result in : 


- 90° rotation 
. then X axis rotation. 


which is a symmetry relatively to the second bisector. 


Notes : — Rotation Transformation is always performed first. 


- 


eee" — 


GPR100 - USER'S MANUAL 75 
Publication n° 454200234 


Following figure gives all possible values of SYMRT and the 
resulting transformation. 


SYMMETRY ROTATION 
—_—_—_—<—<—_——«—«X—«—X—«—«—«—LKLy,w1)L > << 
Value X-AXIS Y-AXIS lst 2nd + 90° + 180° - 90° 
of Symmetry Symmetry Bisector Bisector Rotation Rotation Rotation 
SYMRT Symmetry Symmetry 


- NOT ALLOWED - 


xX 


- NOT ALLOWED - 


Figure 3.3.3. - Transformation Possibilities 


———o——_—t—“‘ eT 
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ARRAY (8) 


Notes : 


B- COM 340 : 


76 


Gives the Plotter Resolution Code. 


ARRAY(8) is thereafter referred to as PRESL argument. 


- PRESL 


1 Resolution is 100 steps/cm 
2 Resolution is 200 steps/cm 
3 Resolution is 400 steps/cm 
4 Resolution is 800 steps/cm 


PRESL 


i] 


gives the physical resolution of the Plotter, which is 


different from STEPX and STEPY. 

The latter represent the logical resolution from which all 
computations are performed in the Host Computer. It is 
recommended to set STEPX,STEPY and PRESL to the same value 
in one plotting programm. 


Only the following values are available : 


ICOD = 8 Resolution and orientation definition : 


ARRAY 
ARRAY 


ARRAY 
ARRAY 
ARRAY 
ARRAY 


I 


(7) 
(7) 


(8) 
(8) 
(8) 
(8) 


0 
0 


Vv 


uno a 


&WDN 


Horizontal format (Long axis on X) 
Vertical format (Long axis on Y) 


8192 

16384 
32768 
65536 


ICOD = 32 Film and format used : 


ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 


ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
ARRAY 
The software will 
view with defined 


(11) 
(11) 
(11) 
(11) 
(11) 
(11) 
(11) 
(11) 
(11) 


(12) 
(12) 
(12) 
(12) 
(12) 
(12) 
(12) 
(12) 
(12) 


ensure 


touut tt ne a 


ONKDURWNHe OC 
_ 
toa) 


1itrvpirutanunau 


16 mm SPROCKETED "CINE" 
35 mm SPROCKETED "CINE" 

35 mm SPROCKETED "CINE" with sound track 
35 mm SPROCKETED "COMIC" 
UNSPROCKETED 

35 mm UNSPROCKETED 

105 om UNSPROCKETED 

16 mm UNSPROCKETED 
105 mm with 35 graphics views 


AO format (118.8 x 84. cm) 

Al format (84. x 59.4. cm) 

A2 format (59.4 x 42. cm) 

A3 format (42. x 29.7 cm) 

A4 format (29.7 x 21. cm) 
tt 


OCNADAUEWNHO 


full inclusion of the specified format into the graphic 


orientation. Any drawing outside the window will be truncated 
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3.3.2. ADVANCED PLOTTING SUBROUTINES 


3.3.2.1. The ARCPL subroutine 


Plots an are of a circle (circular interpolation) or a full circle. 
Calling sequence : CALL ARCPL(XSTAR, YSTAR, XEND, YEND, RADUS, IMRC) 


XSTAR, YSTAR : coordinates of arc starting point 


XEND, YEND : coordinates of are ending point 
RADUS : radius length 
IMRC : an integer whose 3 least significant bits have the 


following meaning : 


Bit 2 = 0 minor arc 
Bit 2 = 1 major are 
Bit 1 = 0 center on the left side of vector SE 


Bit 1 = 1 center on the right side of vector SE 


Bit 0 
Bit 0 


0 plot arc as defined by IMRC 
1 plot the whole circle 


tl 


The Reference Point is set at (XE,YE). 
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3.3.2.2. The CRCLE subroutine 


Plots a circle 

Calling sequence : CALL CRCLE(XCNTR, YCNTR, RADUS) 
XCNTR, YCNTR : coordinates of circle center. 
RADUS : circle radius. 


The Reference Point will be set at (XCNTR,YCNTR) after execution. 


—_"_— 
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3.3.2.3. The EXSYM subroutine 


Plots a centered symbol. 


This subroutine is an extension to the 2nd kind call to SYMBOL 
(§ 3.2.10). Any symbol or character known by the plotting machine will 
be plotted as a centered symbol. 


Calling sequence : 
CALL EXSYM(XPAGE, YPAGE, HEIGH, WIDTH, XANGL, XLANT, IDSYM) 


XPAGE, YPAGE : center of symbol coordinates 


If XPAGE and/or 
YPAGE = 999., the coordinate(s) of the 
Reference Point will be 
considered as the coordina- 
te(s) of the symbol center. 


HEIGH : symbol height. 

WIDTH : symbol width. 

XANGL : angle between the symbol and the +X direction. 
XLANT : slanting angle (see § 2.3.). 


IDSYM : a Signed integer that identifies the symbol or character. 


Tf IDSYM<128, IDSYM is the decimal identification 
number of the symbol to be plotted (see 
Appendix A) ' 


Tf 127<IDSYM<256, IDSYM is the decimal identification 
number of a user symbol previously 
defined by the subroutines SYMDF or 
SYMLD (see § 3.3.3.). 


Tf -257<IDSYM<O, (1-IDSYM) is the decimal identifica- 
tion number of the character that will 
be plotted as though it were a centered 
symbol (see list of characters in 
Appendix A). This may be a predefined 
character in either of the 2 fonts, or a 
user character redefined by subroutines 
SYMDF, SYMLD and SYMLP. 


Subroutine EXSYM uses the following temporary Q.G.A's : 


SASPE = WIDTH/HEIGH 
SANGL = XLANT 
CANGL = XANGL 
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The point of coordinates (XPAGE,YPAGE) is taken as the new Reference 
Point, after execution. 


—_>E_" @# ~} 
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3.3.2.4. The NEWPG subroutine 


eee Ee ee ee 


Defines a new page. 


Calling sequence : CALL NEWPG(DELTX, DELTY) 


A- ELECTROMECANICHAL PLOTTERS : 


DELTX : abscissa of new page origin as referred to XMAX, the 
maximum abscissa value reached since initialization or the 
last call to NEWPG. 


DELTY : ordinate of new page origin as referred to the current 
origin. 


This function insures that two drawings will not overlap, 
without having to compute the size of the first drawing. 
The Reference Point is set to the origin of the new page. 


01 X1 


Figure 3.3.2.4. MOVING TO A NEW PAGE. 


RE  ————————— 
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B- COM 340 : 


For the COM three possibilities are available using this subroutine : 


Page change 
Column change (micro-fiche case) 
Fiche change 


RO 


NEWPG action is defined by the following table : 


DELTY —®» ! <0 ! >=0 ! 
DELTX ! ! ! 
<0 ! F ! C ! 
>=0 ! P ! P ! 


Note : In case of film utilisation, F and C actions are equivalent to P. 


SS.SSSSSScoe”™”™””™ =u—_—“—<~™~7~7<7<7=~—<O<2A'—i~<~stsie 
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KK 


3.3.3. User character and symbol description and loading. 


CHARACTERS 


Two fonts of 128 characters each are ROM predefined in the X3 
Intelligence (see Appendix A). Each of these 256 characters may be 
redefined in RAM. To this end, the user codes the delineation of the 
new character in his own reference grid. If variable spacing is 
desired (see 2.2.2.2.), the user will specify the starting and ending 
abscissas of the character. These informations are formatted and down 
loaded in the device by using the subroutines : SYMDF and SYMLD/SYMLP. 
Each redefined character can be protected against any further attempt 
of redefinition. 


It is allowable to switch font within a text using the Escape 
Sequences (see § 1.2.4. and 1.2.5.). 


SYMBOLS 


One 128 symbol font is predefined in ROM. New symbols may be 
introduced by the user using subroutines SYMDF and SYMLD to create a 
second font. 


Each user defined symbol can be protected against any further attempt 
of redefintion. 


**kk NOT AVAILABLE IN GPR 340 
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CHARACTERS SYMBOLS 


om eee ee ee oe oe a oe oe we ne oe on 
oe an on cn em Oe OD aD me om an On os 


It 


1 st font n _——S— 
(468 oo ee ee ee I 42 4 
re 
1423 
i 
DHANCONTASUAHAGUULSQUOATRAUI AUR: 

. | 

2 nd font \ ! 
! 

! ! 
7 
' ! 
(299 lc Comtesse aes J 
.____} EPROM 

1 RAM 


RAM character redefining an EPROM defined 
Cun character. 


| CILLA. RAM symbol complementing the EPROM symbols font. 


== RAM symbol redefining an EPROM defined symbol. 


Figure 3.3.3. CHARACTER AND SYMBOL FONT MEMORY MAPPING 
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3.3.3.1. The SYMDF subroutine 


Defines symbols or characters. 


Calling sequence : 
CALL SYMDF (XARAY, YARAY, IPARY,NPTS, UDESC, KASYM, IDESC, NIDES) 


This subroutine changes the character or symbol coded in the user own 
grid into an array of describers in the BENSON format. 


XARAY : table of abscissas of the vectors composing the symbol, 
expressed in the user's grid of reference. 


YARAY : table of ordinates of the vectors composing the symbol, 
expressed in the user's grid of reference. 


IPARY : table of the pen positions associated with each vector ;: 


1 
0 


pen down 
pen up 


NPTS number of vectors to be taken into account. 


UDESC : describer of user grid of reference and starting / ending 
abscissas of a character. 


UDESC(1) = XMIN 

UDESC(2) = YMIN 

UDESC(3) = XMAX 

UDESC(4) = YMAX 

UDESC(5) = START ) useful only if KASYM=3 
UDESC(6) = END ) Geefer ‘to fies 3.3.3.1) 


KASYM 


KASYM=3 => character 
KASYM=5 => symbol 


IDESC : result array for the BENSON format describer. 


NIDES returned argument indicating the number of vectors in 


IDESC. 


Next page provides an example of SYMDF use. 


Note : IDESC dimensionning is to be performed by the user. It is 
theoretically equal to NPTS. 


Refer to Appendix C for details on the controls operated 
by this subroutine. 
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Ascending character : 


Starting abscissa 


abscissa 


Symbol : 


XMAX 
TAX 


XMIN - 

_YMIN 
pencripesou in the Internal description 
user's grid. given by SYMDF. 


CHARACTER 'A' DESCRIPTION GIVEN BY THE PROGRAMMER : 


XMIN = 0. YMIN = O. XMAX = 3.5 YMAX 
START = 0.25 END = 3.25 

MARAY © 0.5 6 eiS3 Te § de Soke Hi -2.5 S-2n5 3 2.5 9 Tn FSE 3. 
Vapay = 0, 4 Se = 6055 Gs5 $25. 9 Be 2 O05 § GS s Sn FOR 
Traky ww Oo 6g tlUG OULU EOE OlUGLEDUCUECOUCUCUS 
NPTS = 10 

KASYM = 3 


ee ee ee ee ee ee ee 
= 
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3.3.3.2. The SYMLD — SYMLP subroutines 


Loads a character or symbol defined by SYMDF into the BENSON machine. 


Calling sequence : CALL SYMLD(IDSYM, IDESC,NIDES,11,12,13) 


IDSYM : symbol or character identifier to add or replace, respec-— 
tively. 


127<IDSYM<255 => symbol number IDSYM (second font) is 
created. 


-256<=IDSYM< 0 => character number (1-IDSYM) is replaced. 


IDESC : address of array built by SYMDF or generated by the user if 
desired. 


NIDES ¢ number of vectors in IDESC. 


Il, 12, 13 are reserved for future use. 


Calling sequence : CALL SYMLP(IDSYM, IDESC,NIDES,11,12,13) 


Function is similar to SYMLD but the loaded symbol or character is 
protected against future redefinition. 


This protection is valid until the plotter is power on. User Protected 
Characters and Symbols are not destroyed even after INIT button is 
depressed. 
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3.3.3.3. The SYMCL subroutine 


This subroutine without argument is used to get back to the initial 
fonts by erasing all user RAM defined characters and symbols, provided 
they are not protected (i.e. loading with SYMLD). 


89 
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3.3.4. Exit subroutines. 


These subroutines allow the user to adapt the package to his own 
operating needs. 


They contain a mere "RETURN" at delivery time ; it is up to the user 
to develop his own procedure from there. 


There are 5 of these subroutines : 


USDEV 


USBEG 


USEND 


USCHK 


USERR 


ee 


called by PLOTS prior to any file management operation. This 
allows to select the proper device in a multiconnection 
configuration. The only subroutine which can be called in 
USDEV is DEVAT. 


called at the end of the PLOTS function, to allow the 
user to develop his own plotting initiation procedure. 


. subroutines not callable in USBEG are : 
PLOTS 


called before returning from a CALL PLOT with IPEN=999 ; 
allows the user to develop his own plotting termination 
procedure. 


. The only subroutine which can be called in USEND is WHERE. 


is called at each change of origin and can be used in a 
similar way as USBEG, when operating off-line connections. 


(ISEV,NOERR) : 


called after an error is detected, e.g. to output a 
message on a peripheral (see ERROR § 3.1.2.). 


- NO subroutine of the package can be called in USERR. 
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3.4. X5 Series and COM Specific Subroutines 


The following subroutines are available with the package but will be 
ineffective if the plotter used is not an X5 Series. 


They are organized along three lines : 


- Operator Dialogue %** ; 


Subroutine MSGOP sends a message which is displayed on the 
Operator Console and activates, depending on a code, 
different operator procedures. 


- Stop Watch Feature *** ; 


Subroutine TIMER allows host control of this facility. 


- Pen Attributes Management :; 


Subroutine PENAT allows host selection of VAP parameters. 
This subroutine is not available currently. 


*k*k NOT AVAILABLE IN GPR 340 
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3.4.1. The MSGOP subroutine *** 


Function : Sends a message on operator's console, then 
activates an operator procedure, according to 
ICODE argument. 


Calling sequence : 
CALL MSGOP (MSGE, IMSGE, ICODE) 
WHERE 
MSGE : Integer ARRAY containing the message to be 
displayed before activation of selected 


procedure. 


IMSGE : Number of character of MSGE to be displayed. If 
IMSGE=0, no message will be displayed. 


ICODE : Procedure selection switch. 


=0 ; No procedure is activated. Operation goes on 
after message is displayed. 


=l1 : Pause. To resume operation, "AUTO" procedure 
will have to be performed (on keyboard or on 
control box). 


tt 
nN 
eo 


Replot 2. Procedure is activated. Refer to 
section 1.2.6. for further information. 


NOTE : Once Replot 2 Procedure is completed, all drawing will be performed 
with regards to the new axes. In order to return back to the default 
axes of the device, the programmer will issue the following 


statement. 


CALL DSABL (‘'RPLT') 


~ Initialisation subroutine PLOTS automatically issues this 
statement at the beginning of the plot session. 


**k NOT AVAILABLE IN GPR 340 
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3.4.2. The TIMER subroutine *** 


Function : Operates the Stop Watch feature. 


Calling sequence :; 


CALL TIMER (ICODE,RTIME) 


ICODE : Selection switch. 


1 = Reset stop watch to zero. 

2 = Start timer. 

4 = Stop timer. 

8* = Return the current timer value in RTIME (*) 


RTIME : Real variable returned when ICODE = 8, and giving the timer 
value, expressed in seconds(*). 


Functions are cumulative, i.e. ICODE = 7 will cause successively the 
following actions ; 

- Stop timer (ICODE = 4) 

- Reset timer (ICODE = 1) 

- Start timer (ICODE = 


This priority order is always respected, no matter the value of 
ICODE. 


NOTE : Timer value is displayed on operator console. 


(*) : Not available currently. 


**k* NOT AVAILABLE IN GPR 340 
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3.4.3. The PENAT subroutine 


Function : Allows modification of Pen Attributes under 
software control. Pen Attributes consist mainly 
in the following parameters ; 

Velocity, Acceleration, Pressure. 
("V.A.P.") 


Calling Sequence : 


CALL PENAT (LPI,AVAP, IAVAP) 
With : 
A- X5 SERIE : 
LPI : Logical Pen Identification (O<= LPI < 255) 
Depending on the pen assignments performed by the operator, 
the corresponding Physical Position Number will be set with 


the VAP parameters contained in AVAP array. 


AVAP : Parameters array containing : 


AVAP (1)= Velocity parameter : 1 to 15 
AVAP (2)= Acceleration parameter : Q0 to 2 
AVAP (3)= Pressure parameter : 1 to 15 


(Refer to section 2.5.3.2. of publication 457200135 A for further details). 


TAVAP : Number of elements of AVAP. Currently this argument is always equal 
to 3. 


Important Notice : Since Pen Assignment is only performed via _ the 
operator Keyboard, no control is made by the software to ensure that 
the current call to PENAT does not conflict with a previous call, even 
if the LPI's are different. It is then recommanded to issue always the 
proper call to PENAT before selection of the desired LPI by using 


subroutine NEWPEN or SELECT). 
B- COM 340 : 
LPI Logical Pen Identification (1 <= LPI < 8) 
AVAP (4) Filter number assigned to Pen LPI 


TAVAP : Number of elements of AVAP. Currently this argument is 
always equal to 4. 
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3.5. 9XXX series specific subroutines kaK 


This following subroutines are available with GPRIOOC but will be 
ineffective if the plotter is not an 9XXX series. 


They include two subroutines : POLYG and TONE. 


3.5.1. The POLYG subroutine 


Function 


: Plot and fill of a polygon describe in X,Y pairs within arrays. 


Calling sequence : 


X,Y 


NE 


CALL POLYG(X,Y,NE, ICOD) 


: Arrays containing the X,Y vertices of one polygon. 


: Number of vertices in the polygon. 


ICOD : Closed or not closed polygon : 


0 = not to be closed polygon 
1 closed polygon. 


Note : if the filling is selected, the polygon will be filled with the 
pattern. 


3.5.2. The TONE subroutine 


Function 


: Used to fill an area or areas with a shade of gray or a special 


pattern. Several areas may be defined in coordinate arrays X 
and Y. If some areas overlop others, the outermost areas will 
be shaded with the specified gray level, the next outermost 
areas will be white (no shading), and so on in an alternating 
patter. 


Calling sequence : 


NE 


NA 


CALL TONE(X,Y,NE,NA) 


Coordinate data arrays which define the areas to be shaded. 


: An integer array which designates the number of elements of 


each area. Each element of NE represents one area. The value of 
an element of NE is the number of coordinate X and Y with from 
the outline of an area. 


An integer value designating the number of areas. 


*** NOT AVAILABLE IN GPR 340 
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3.6 Summary of specific functionalities of COM 340) 


3.6.1 INTRODUCTION 


This chapter summarises the differences between GPR100 and GPR340 dealing 
with COM particularities. 


These specificities are : 


- Filter change 

- Resolution selection 
- Film moving ; 
- Format of output 

- Brightness selection 


3.6.2 Filters use : 
Color setting with COM 340 is done using filters. 
Filter selection is done calling subroutine SELEC. 
It is also possible assigning logical pen number to filter number. 


This pen number must be in range 1 to 7. 
Assignment is done calling PENAT subroutine. 


3.6.3 Resolution ; 
It is possible to use four different resolutions : 


8192, 16384, 32768, 65536, 
selection of resolution is done calling DEVAT subroutine. 


3.6.4 Film moving : 


Film moving is done using NEWPG subroutine. 
This subroutine can perform : 


- page change 


-~ column change 
- fiche change 


3.6.5 Output format : 


Format used by COM is BENSON binary 8 bits (usually called "FF format"). 


3.6.6 Characters font : 


- only one character font is available 
- characters generation is done by the package. 


3.6.7 Brightness 
COM spot brightness is adjusted by calling SELEC subroutine. 
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4. VDF FORMAT PRESENTATION *** 


Commands as worked out by the computer must be presented in specific 


format, in order to be understood by the plotting device. 
By extension, the term Format will designate all the commands used to 


operate the device. 


With a strictly defined information structure, all the new commands needed 
to implement the X3 intelligence have been grouped in one format referred 
to as the VDF Format. 


Knowing this new format is not strictly required to use the GPR 100 
package. 


However, a user who wishes to develop his own basic software cannot 
dispense with this format; he is then advised to refer to Publication 


number 451200131 A for X3 and X5 series : 
'X¥3 GRAPHICS INTELLIGENCE' 
"FIRMWARE 11, USER'S MANUAL' 


publication number 457200209 A for 9XXX series connected to the controller 
GW1000-64. 


**x*k NOT AVAILABLE IN GPR 340 
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BENSON OPTIONAL FONTS 
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SHADE OF GRAY 


(only available on serie 9XXX) 
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GRAPHICS ATTRIBUTES LIST 


20 


Line G.A.'s 


te ee ees ee ee ee es oe 


CONTROL 
SUBROUTINE 


G.A. 's ee ee eee ae ee Pe en ee ee eee 


a ee cy eas Ga ee tS ED a 


MEANING INITIAL 
VALUE 


inactive 


Enables thickening 


Round shaped ends inactive 
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Square shaped ends| square 
ends 


0.1 cm 


Line width 


we ee re ee cs ee ge cr es a ce ee 0 oh re ee ee cr ee ee ce cs ee cre ey ye re en ee ee ce ce ee es en es rr rn re ne 


THIK 

ROUN 
THICKENING 

SQRE 

WIDTH 

DNSTY 


Line density 
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G. A. NAME 


NSTRK 


DASHING DASPT 
G.A.'S 


DADJ 
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APPENDIX B 


GRAPHICS ATTRIBUTES LIST 


Line G.A.'s (continued) 


CONTROL MEANING INITIAL 
SUBROUTINE VALUE 


Enables dashing inactive 


Number of strokes 
in pattern 2 


Array of strokes 


lengths l,l 
Pattern length 
adjustment inactive 


Pattern identification 1 
number 


Pen-up vector optimi- 


zation active 
Current pen number 1 
Restores Initial active 
Context 
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APPENDIX _B 


GRAPHICS ATTRIBUTS LIST 


Character and Symbol G.A.'s 


INITIAL 
VALUE 


MEANING 


CONTROL 
SUBROUTINE 


G.A.NAME 


Angle of character 


Character slanting 
angle 


Width/Height ratio 


Angle of symbol 


Symbol slanting angle 


Width/height ratio 


Font selection 
"SLANT" effect 
enabling inactive 


FONT#** 


**k NOT AVAILABLE IN GPR 340 
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APPENDIX B 


GRAPHICS ATTRIBUTS LIST 


Text G.A.'s 


MEANING INITIAL 
VALUE 


CONTROL 
SUBROUTINE 


ENABL 
DSABL/SET 
ENABL Left justification active 

DSABL/SET 


Right justification inactive 


Center justification 
DSABL/SET inactive 


ENABL Text adjustment inactive 
DSABL/SET 


ENABL Variable spacing inactive 


DSABL/SET 


SPACING «—_- pn rn pa pan pr ttre pe ee en om mn mn sn a a ne 
TEXAT Proportional spacing 0 
ratio 
Subscript ratio 0.5 
Subscript offset 0.5 
SUB/SUPER --------}--~---=- = fen nnn penn nnn nnn pn nnn nnn nnn nt nnn 
SCRIPTING SUPRA Superscript ratio 0.5 
SUPOF Superscript offset 0.5 
ALFRA Line spacing ratio 2 
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APPENDIX _B 


GRAPHICS ATTRIBUTES LIST 


Text G.A.'s (continued) 


INITIAL 
VALUE 


CONTROL 
SUBROUTINE 


G.A.NAME 


ENABL 
DSABL/SET 


Taking Escape Se- inactive 
quence into account 


ESCA 


ESCAPE o——_- rr nef nn er pn nn en 
CHARACTER ESCP SELEC Escape character Commercial 
code "ac" 
TANGL SYMBOL Text angle 0 
NUMBER 
TLENG TVECT Text-Vector length 10 cm 
CONT ENABL Concatenation inactive 
DSABL/SET enabling 
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APPENDIX _B 


Lil 


GRAPHICS ATTRIBUTES LIST 


Environment G.A.'s 


CONTROL MEANING INITIAL 
SUBROUTINE VALUE 
CENT E.G.A. ENABL Lengths expressed active 
DSABL/SET in cm 
INCH E.G.A. ENABL Lengths expressed inactive 
DSABL/SET in inches 
UNIT DEGR E.G.A. ENABL Angles expressed active 
SELECTION DSABL/SET in degrees 
RADN E.G.A. ENABL Angles expressed inactive 
t DSABL/SET in radians 
GRAD | E.G.A. ENABL Angles expressed inactive 
DSABL/SET in grades 
DEVCE Peripheral type 1332 
STEPX Number of steps per 200 
PERI PHERAL cm X-wise 
DESCRIP frre ern ener er erennenmemrnemnmnenenenenenan anes 2a TD 
TION STEPY Number of steps per 200 
cm Y-wise 
ECARX Correction X-wise 0 
ECARY Correction Y-wise 0 
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APPENDIX B 
GRAPHICS ATTRIBUTES LIST 


Environment G.A.'s (continued) 


G.A.NAME . «Ox CONTROL MEANING INITIAL 
SUBROUTINE VALUE 


DESAT : ; On-line / off-line 


control 


Control B8ERR inactive 
subroutine use 


Serie 9XXX A.G. 


Filling pattern 


Enable filling inactive 
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APPENDIX _C 


ERRORS CODES 


IMPLIED DECISION 


MEANING 
WHEN WARNING 


SUBROUTINE | ERROR | SEVERITY 
1=Warning 
2=Severe 


Call ignored 


AXLEN<1 Current Unit 


Implied value = 1 


INTEQ=0 


FACT=0 
Tllegal INTEQ 
NPTS <= 0 
INC <= 0 


Call ignored 


IPEN> number of pens in plotting 
device 
IPEN <= 0 


NUMBER Illegal NDEC Implied value = 9 
HEIGHT <= 0 Call ignored 
XSCALE=0. Implied value = l. 
YSCALE=0. Implied value = l. 


Call ignored | 


OFFSET 


Call ignored 
Call ignored 


AXLEN<1 Current Unit 
NPTS<=0 


HEIGHT<=0 Call ignored 
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APPENDIX _C 
ERRORS CODES 
continued) 
SUBROUTINE | ERROR | SEVERITY MEANING IMPLIED DECISION 
CODE | 1=Warning WHEN WARNING 
2=Severe 
WHERE 
ENABL 
DSABL 1 Tllegal E.G.A. Call ignored 
SET 1 Second argument not 0 or 1 - Call ignored 
SELEC 1 Tllegal S.G.A. Call ignored 
1 Inexisting IDCUR Call ignored 
SELGA at Insufficient LENGTH Call ignored 
1 Tllegal ICCDE Call ignored 
2 Checksum error during restore 
operation 
SYMAT**%* 1 Illegal KASYM Call ignored 
2 ASPEC = 0 Implied value = 
DASH 1 Tllegal NSTRK Call ignored 
1 Illegal IDASH Call ignored 
1 One stroke with length< 0 Call ignored 
THICK ul DNSTY <= 0 Implied value is 
twice WIDTH value. 
1 WIDTH <= 0 Implied value = .01 
TVECT 
TEXAT 1 SUBRA < 0 Implied value = 
1 SUBOF < 0 Implied value = 
1 SUPRA < 0 Implied value = 
1 SUPOF < 0 Implied value = 
i ALFRA < 0 Implied value = 
1 SPCRA < 0 Implied value = 
DEVAT 1 STEPX<0 Implied value=1/200 
cm 
1 STEPY<0 Implied value=1/200 | 
cm 
1 Illegal ECARX Implied value=0. 
1 Tllegal ECARY Implied value=0. 


*x*k* NOT AVAILABLE IN GPR 340 
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APPENDIX _C 


ERRORS _CODES 
(continued) 
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IMPLIED DECISION 


SUBROUTINE | ERROR | SEVERITY MEANING 
CODE 1=Warning WHEN WARNING 
2=Severe 
ARCPL 4001 1 SE distance > 2.*RADUS Implied value = 
Half SE distance 
4002 1 Tllegal IMRC Implied value=1 
( full circle) 
4009 il RADUS <=0 Implied value = 
Half SE distance 
CRCLE 4109 L RADUS < 0 Implied vaiue = 
- RADUS 
EXSYM 4201 1 Tllegal IDSYM Call ignored 
4208 l HS<=0 Call ignored 
4209 1 WS<=0 Call ignored 
EWPG 43 
SYMDF*** 5001 1 Tllegal KASYM Call ignored 
5002 1 Starting or Ending abscissas The errored abscissa 
are outside definition grid is set to starting 
or ending point of 
of the grid 
5005 1 XMIN=>XMAX or YMIN=>YMAX Call ignored 
5007 1 One of the User vectors is This vector is 
outside definition grid ignored 
5008 1 One element of IPARY is illegal Implied value = 1 
( pen down vector ) 
SYMLD*** 5101 l Tllegal IDSYM Call ignored 
5102 i IDESC conflicts with IDSYM Call ignored 


*k* NOT AVAILABLE IN GPR 340 


(IDSYM incompatible with the 
KASYM of SYMDF) 
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APPENDIX D *** 
FORMAT VDF COMMANDS LIST 


COMMAND PAIRED SYMBOLIC FUNCTION 
IDENTIFIER ARGUMENTS (VDG) FORMAT 
(reminder) 


O01 LL (EESL2) 5 as ND SD Loads a pattern used in a 
dashed line (N<17) 

02° LL (LINE STATUS) LM Loads line status byte 

3 LL (HX, HY) , (CLANT) TZ or SZ Loads character dimensions 

4: iEL (R1,R2), (R3,R4),(R5,;R6) SR Loads text ratios 

65. LL (HX, HY), (SLANT) GZ Loads symbol dimensions 

06 LL (CHARACTER STATUS) CM Loads character status 
byte 

D7. G5 (Key) TV or NT Loads Text-Vector 

08 LL (Pen number) NP Pen selection 

09 LL (C1,CM, CI) GW Command for controller 
GW1000-64 

2g Eas By (TE) (XT) (E) TX Text plotting 

22 LL (S) cs Plotting centered symbol 
number § 

23 LL (X)9¥1) 2 (Kyo ¥o) ++ Kyo ¥y) PL Plotting a vector or a 


broken line 
24 LL (Xo sY.) »(X_s¥,) » (Rs ICODE) CA or CI. Plotting the arc of a 
cn ” circle SE with radius R, 
in accordance with ICODE 


5s Tals (X.+¥) 5 (R) FC Plotting a whole circle 

32 LL. (width,density) + ST Loads thickening parameters 

36 LL (S)rQKp¥JenrKety) 1S Loads a user character or 
symbol (number S) 

371L (GY) ~~~ G-—~—~S~*é«SNw page 

iS IL (@X,dY),1@ ~~~ <GR.~—~«*FAddLing of a rectangle area 


with the filling pattern IG 


xxx NOT AVAILABLE IN GPR 340 
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APPENDIX E 


QUESTIONS AND ANSWERS 
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QUESTION 1 : 


What should I take care of when plotting thickened lines ? 
ANSWER : 
- Parameters you must determine are as follow : 
- Actual width, call it PW 
- Total thickness width, call it TW 


. Overlapping ratio, call it OR. This ratio measures the 
darkness of the thickened line. 


~ A ratio of 100 4 means that each elementary hachure line is exactly 
adjacent to the neighbouring one. 


- A ratio of 200 % means that each elementary hachure line overlaps 
the neighbouring one at half its width. In this case, the pen passes 
exactly twice at the same location, except on the outline of the 
thickened line. 


- An overlapping ratio of 100 % is not recommended since small blank 
traces can be left in the thickened line, because the actual pen 


width may variate slightly. 


~ An overlapping ratio greater than 200 4% percent is not recommended 
either, because of possible ink saturation problems. 


- A good overlapping ratio is around 130 %. 


~ Parameters you must give when calling subroutine THICK will be 
denived from the preceding parameters by computing : 


TW - PW 
PW / OR 


WIDTH 
DNSTY 
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QUESTION 2 : 


ANSWER : 


How can I draw a dashed line ? 


You must first define one or several dash patterns by calling 
subroutine DASH. 


Then, with subroutine SELEC, you select the desired dash pattern and 
enable this feature for all subsequent calls. 


A sample program at the end of this Appendix gives an example of 
operating thickened and dashed lines. 


QUESTION 3 : 


ANSWER 


What is the difference between using the continuation feature of 
subroutine SYMBOL or NUMBER (XPAGE and/or YPAGE = 999) and the 'CONT' 


Graphics Attribute ? 


GPRIOO operates on a Text Vector basis. If it is not provided by the 
User (by a call to TVECT subroutine), then GPRIOO automatically 
supplies it, according to several rules. But in this case, no 
justification feature is allowed (if specified, it will be ignored). 


Continuation feature of SYMBOL and NUMBER is useful when a string must 
be drawn containing text strings mixed with number strings. Operatin 
in this ISDP mode is correct but no automatic justification can be 


performed. 


On the contrary, using the 'CONT' Graphics Attribute will allow you to 
justify the overall string on any text vector. 


Following sample program gives an example of text plotting with 'CONT' 
E.G.A. and also use of escape characters. 
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(Cott oes obs po ob ob op oe bt op apt opt ops ops op ob a opt opt bs bs ops ob bp ps ps ob bs bap HS Bp os Hh fp OB Oe a abs of sb pr fs ab OB fs ops ap op op 
Cc EXAMPLE OF USE OF GPRiI@O 


Cw: Pb ob: obs ob: abs aps hs ahs hs ahs ahs obs ops hs hs ops abs aps of: os obs aps obs obs obs obs rhs abs ops ps obs obs he oh ahs ops ahs ahs obs bs abs Hs Obs ab: Hh ahs obs oF: ops ahs hs obs obs fs of: os of hs hs ho yo oe he 


THIS PROGRAM USE ELEMENTARY FUNCTIONS OF GPR1O® 
AND SHOW HOW YO USE GPRi@@ CONCEPTS. 


DIMENSION DASPT C2) 


INITIALISE GPRi@O 
CALL PLOTS (@,@, 1) 


PLOTTING THICK LINES 


THICK DEFINITION 

DEFINE THICKNESS OF 

@.1 CENTIMETER FROM 

CENTER PEN TO CENTER PEN. 
WIDTH=. @5 

DEFINE DISTANCE BETWEEN 

TWO ADJACENTS LINES OF 

2.92 CM 


ONO NNOONANAINAAA AnoaANg AnaAannn 


DNSTY=9. @15 
CALL THICKCWIDTH: DNSTY) 


ENABLE THICK LINE PLOTTING 

IMPLICIF END ID SQUARE 
CALL ENABL¢’ THIK” 9 

PLOT THICKED LINE 


Oo oOoOnNn 


CALL PLOT (0..2.572) 
c PLOT NORMAL LINE 
CALL DSABL ¢’ THIK’) 
CALL PLOT (2.5) @ +2) 
€ PLOT THICK LINE ROUND ENDED 
CALL ENABL¢’ THIK? > 
CALL ENABL¢’ ROUN’ > 
CALL PLOT ¢@..0.,2) 
Cc DISABLE THICK 
CALL DSABL¢’ THIK’ > 


DD “Gta. fo  6 Onnnon 


0 


aaa: 
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DASHED LINE PLOTTING 


DASPT¢1)=8.5 
DASPT(2)=0.2 


i) 


NSTRK=2 


IDASH=1 


CALL 


CALL 


CALL 


CALL 
CALL 


CALL 
CALL 
CALL 
CALL 


CALL 
CALL 
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DEFINE DASH PATTERN 


DEFINE DASH PATTERN NUMBER 


SEND DASH DEFINITION TO GPRi2@ 


DASH ( IDASH, DASPT: NSTRK) 


SELECC’ IDSH’ +1) 


PLOT CQ. ? -2. oD? 2) 


DSABL ¢”’ DASH’ ) 
PLOT (—2. 5; @. 32) 


ENABL ¢’ DASH? ) 
ENABL ¢’ THIK’ > 
ENARBL ¢’ ROUN? > 
PLOT (@.,8.:2) 


DSABL ¢? THIK” 3 
DSABL ¢? DASH’ 3 


DASH PATTERN SELECTION 
THE CALL SELECC’ DASH’;...) 
IMPLICITLY ENABLES DASH 


DRAW DASHED LINE 


DRAW NORMAL LINE 


DRAW DASH THIKENEND ROUND ENDED LINE 


DISABLE THICKENED, DASHED LINE 
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Ch OH 1) a. CIO ea Sst 


oO 


is 


CL to. “Re 


PLOTTING TEXT USING TEXT VECTOR 
CONCATENATION FEATURE 


ENABLE ESCAPE CHARACTER 
INTERPRETATION 
CALL ENABL(’ ESCA’ > 


DEFINE TEXT VECTOR LENGTH 
CALL TVECTF (Sa. 3 
DEFINE TEXT RATIOS 
CALL TEXATC®. SO. 25,0.5,8. 75, 4.508. > 
ENABLE CENTERED JUSTIFICATION 
CALL ENABL¢’ CNTR’ 3 
ENABLE CONCATENAT ION 
CALL ENABL ¢’ CONT” > 
SEND Ci VALUE 
Ci=1.235 
CALL NUMBER (3.5,3.5,1.,01,0.,23) 
SEND TEXT 
CALL SYMBOL ¢999.,999.,1.;’ XdHeZaI +*,0.,8) 
SEND C2 VALUE 
C2=0. 45 
CALL NUMBER ¢999.,999.,1.,C2,@0.12) 
SEND TEXT 
CALL SYMBOL ¢999.,999.,1.:’ YadGi’,@.,4) 
DESABLE CONTINUATION FOR 
HAVING TEXT PLOTTED. 
CALL DSABL¢’ CONT’ > 


STOP PLOT 
CALL PLOT (@.;,0.,999) 
STOP 
END 
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235X* +0. 450Y, 


Téxt Vector Length 


—— 


PLOT DONE BY PREVIOUS PROGRAM 


; 4 
| 


' 
| 
; j 


y 
| 
| 
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